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PREFAZIONE 


Possedere un personal computer, e' forse il mezzo migliore 
per cominciare a muovere i primi passi neirimmenso, attuale 
mondo informatico. Infatti, troppo spesso, viviamo da spettatori 
incantati, piuttosto che da protagonisti partecipi. Il PC 128 , per 
le sue eccezionali doti didattiche e la praticità' d’uso, può' es¬ 
sere considerato il computer piu' adatto all'apprendimento 
della programmazione, nonché' alla sperimentazione pratica 
di come può’ effettivamente esserci utile l'elaboratore nella vi¬ 
ta quotidiana, nel gioco, nella gestione di dati, ecc. . L'approc¬ 
cio, inizialmente frustrante, con una macchina ed un linguag¬ 
gio sconosciuto ed all'apparenza incomprensibile come il BA¬ 
SIC, rivelerà' presto, a chi sapra' superare i primissimi scogli, 
infinite possibilità', nonché' l'importantissimo feed-back positi¬ 
vo sul proprio modo di pensare. 

Un'idea confusa può' talvolta governare le nostre azioni, ma, 
un progetto poco chiaro non potrà' mai trasformarsi in un pro¬ 
gramma funzionante. Impariamo quindi ad usare il computer 
imparando ad essere piu' coincisi, ad analizzare correttamen¬ 
te un problema, riducendolo ad un insieme logico di operazio¬ 
ni che il computer potrà’ eseguire senza fallo, utilizzando ap¬ 
pieno le proprie capacita'. La difficolta' principale di chi segue 
la strada dell'autoapprendimento, consiste spesso nella man¬ 
canza di documentazione ed esempi pratici di programmazio¬ 
ne, da cui ricavare insegnamento ed una migliore padronanza 
nell'uso delle singole istruzioni o della loro interazione in un 
programma. 
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Con questo libro ci proponiamo di fornire al lettore una comple¬ 
ta raccolta di programmi, che potrà' essere una preziosa fonte 
di esempi, da cui attingere esperienza e sicurezza per i propri 
lavori. Grazie alle spiegazioni del testo ed ai listati presentati, 
ciascun programma potrà' essere facilmente modificato, studia¬ 
to o adattato a diverse applicazioni. 


Gli Autori 
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GUIDA ALL'USO 
DEI PROGRAMMI 


Tutti i programmi presentati possono essere caricati su compu¬ 
ter, sia ricopiando il listato pubblicato, sia utilizzando la cas¬ 
setta allegata al libro. Sul nastro, i programmi, sono registrati 
in sequenza sul lato A della cassetta, con nome abbreviato 
simile a quello esposto nell'indice. Per il caricamento si consi¬ 
glia di seguire questa semplice procedura: 

-premere il tasto di RESET 

-selezionare dal menu iniziale il BASIC 128 pre 

mendo il tasto 1 

-battere: LOAD 

-premere il tasto ENT 

-premere PLAY sul registratore ed attendere il 
caricamento 

-a caricamento terminato, premere il tasto STOP 
sul registratore ed avviare il programma con il 
comando RUN. 

Per poter raggiungere velocemente qualsiasi programma sen¬ 
za dover visionare ogni volta quelli che lo precedono sul na¬ 
stro, e' consigliabile segnare la posizione d'inizio con il conta¬ 
giri per utilizzarla nei successivi caricamenti. 

Alcuni programmi del libro (archivio, quiz, ecc.) prevedono la 
possibilità' di registrare i dati su nastro come file sequenziali, 
per tale scopo, occorre usare una cassetta diversa da quella 
del libro. Qualora si intendesse usare frequentemente qualcu¬ 
no dei programmi, si consiglia di salvarlo su di una cassetta di 
lavoro. 
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Titoli programmi PC 128 


Programmatore Caratteri Grafici 

Indovina la Parola 

Calendario 

Gioco del Sasso 

Intervista 

Bioritmi 

Monitor 

Archivio Libri 

Dracula Adventure 

Bilancio Familiare 

Quiz Master 

Diagrammi 

Crittografia 

Effetti Grafici 

Anagramma 

Quiz Animali 

Business Graphic 

Numeri Romani 

Codice Colore 

Grafico 3D 

Black Jack 

Agenda telefonica 
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CALENDARIO 


La misura del tempo ha assillato l'umanità' da data immemora¬ 
bile; in mancanza di osservazioni astronomiche precise, l'an¬ 
no calcolato dall'uomo ha dovuto subire molti ritocchi prima di 
poter rappresentare effettivamente l'esatto periodo di rivoluzio¬ 
ne della terra intorno al sole. L'anno "Gregoriano'' attualmente 
in vigore, prevede ogni quattro anni il cosiddetto anno bisesti¬ 
le, per recuperare con un giorno in piu', l'errore accumulato. 
Per ulteriore precisione solo gli anni secolari divisibili per 400 
sono bisestili (1600, 2000); ultima correzione (speriamo) intro¬ 
dotta da Gregorio XIII nel 1582. 

Il calcolo, tutt'altro che immediato, della durata dell'anno, non¬ 
ché' della corrispondenza tra giorni del mese e giorni della set¬ 
timana, e’ realizzato da questo semplice programma "Calenda¬ 
rio". Premendo i tasti cursore alto-basso e' possibile incremen¬ 
tare o decrementare l'anno visualizzato, premendo i tasti curso¬ 
re sinistra-destra e' possibile visualizzare tutti i mesi. 

Premendo il tasto "P" si otterrà' infine la stampa su carta di 
quanto visualizzato sullo schermo. Il tasto "Q" termina l'esecu¬ 
zione del programma. 
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Commento alle linee del programma 

80-120 

preparazione dei vettori contenenti i dati 

140 

anno e mese visualizzati all'inizio 

160-270 

calcolo principale 

280-420 

visualizzazione su schermo 

430-510 

lettura della tastiera 
580-660 

subroutine di stampa 


8 



.1 

em 


10 REM *##***# t% % % % * % % % % % 

20 REM * ' * 

30 REM * CALENDARIO % 

40 REM * % 

5 0 R E M # # * * * * # % %%%* % % % % % % 

60 REM 

70 DIMM*(12),DI(12) 

80 REM INI Z I AL. IZ Z A Z I ONE 
90 FORI -1 IO 12 : READM* ( I ) D.1. < I ) : NF XT 
100 FORI»1T07sREADA*(I)sME X7 
1 lo DATA Gennai0,31,Febbraio,28,Marzo,31 
, h p r i 3. e, 3 o, M a a a i a, 31, G i u q no, 3 0, L u q 1 :i. o 
, Hgosto, 31,Settembre,30,Ottobre,31,No 
fare,30,Dicembre,31 
120 DATA Dom, Lun, Mar „ Mer , Gì o, Veri, Rah 
130 REM ' ’ 

140 YR=1987:MT=4 
150 CLS:SCREEN 1,15,15 

160 IFYR/4= IMI (YR/4) TREND 1 (2) =29ELSED1 (2 
.) 2! 8 

170,. XfYR ; N=MT-3:J«12:G0SUB250:MM*L: IFMM> 
8THL-NX=X--.t 

ISO N=XsJ=400:G0SUB250:X«L 
190 X 4- -1 NT ( X / 4 > : X 1 = I NT ( X, 

:N~MM:J=5:G0SUB250:K2=L 
200 M5-INT (MMX5) : M2-INT (L 
210 N=K2sJ=2:G0SUB250:P=L 
220 l<M= 13*M5+5*M2+3 #P 
230 N=KY+KM+3:J=7:GOSUPCf 
240 G0T0280 

250 K=INT(N/J)sL=N-K#J 
260 IFL.<0THENL=I...+J 
270 RETURN 

280 LOCATE*,0;PRINTM*<MT) 

290 PR INT: D~1 
3 0 O B * (B) <= A $ ( B ) + C % + " 1 


‘sDD** 


29" 


310 G0SUB520 
320 G0SLJB540 

330 IF 07 TlIEN GOTO 420 
340 B*< B)«A*(B)+C$ + " 2 

30:DD*«" 30" 

350 G0SUB520:G0SUB540 
360 B*<B)=A$(B)+C*+" 3 

31 :DD*=" 31" 

370 G0SUB520:G0SUB54O 
330 B*< B)-A*(B)+C*+" 

DB 540 

7590 B& ( B ) =A$ ( B ) +C*+ " 

UB540 

400 B$ ( B > •= A$ < B ) +C$+ " 

UB540 

41O B*(B>=A*(B)+C$+" 

UB540 

420 FORI=1107:PRINTTAB(6)B$(J)" 
INT:PRINTs NE X T 

430 C*= ; S=ASC ( J. NKEY*+CHR* ( 0) ) 
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/ 100 ) 

s KY==X+X4 — X 1 

<2/2 ) 


iO : B— 

IMI 

• ; TAB 

(25) ; YR 

8 

15 22"sOl¬ 

9 

iò 23 ": DT- 

1 0 

17 24":DT= 

1 1 

18 25":GOS 

12 

19 26":GOS 

13 

20 27":GOS 

14 

21 28"s GOS 


: PR 
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> IF8= 5. OTHENVR-YR- 1 : GOTO J 60 

:■ 11- 8=9 T'HENMT=M T •+• :l. : IFMT > 12THFNMT= 1 : 

■ I :G0T0160ELSE160 

! IFS= :l. 1 THLNYR=YR+1 s GOTO J 60 

•' 1 1 ?~§ FHENMT=MT ~ 1 : TFT1T< 1THENMT» 12: 

■ 5 ; GO1 (J1 cii.’E LO E .1.60 
) 

1 IFS=81 OR S= .1 13 T MENCI... Ss END 

> TFS-80 OR 8=112 THEN580 

* GO10430 

» IFD1 ( !'i T1 >=DT THEN B$ ( B ) = P1; < B > i pp$ 

> RETURN . . 

» B=B+1 s C=C +■ :!. 

» IFB>7THENB=1sC*=" 

' RETURN 
i F,‘FM 

1 REM STAMPA 
1 REM 

0PEIM"0" , #]., "I PRT" 

• POR Y=0 TO 24 
FOR X=0 TO 39 

PR1NT#1,CHR§<SCREEN(X -Y) ): 

NEXI X ' 

NEXT Y 

CLOSEs GOTO 150 
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EFFETTI GRAFICI 


Una delle applicazioni piu' interessanti dell'elaboratore e' cer¬ 
tamente la "computer-Art", ossia la generazione di effetti grafici 
spettacolari, con il computer. 

In questi ultimi tempi possiamo osservare in televisione, sulle 
riviste specializzate e al cinema, delle sigle e scenari fanta¬ 
scientifici, realizzati completamente da computer, in cui effetti 
di digitalizzazione d'immagine e animazioni tridimensionali, 
accompagnano trattazioni di argomenti scientifici e non. Poten¬ 
ti calcolatori sono persino in grado di creare paesaggi reali¬ 
stici utilizzando la geometria dei frattali, una nuova scienza 
che inquadra, in ottica matematica, le forme apparentemente 
casuali e indescrivibili della natura. Per risolvere in scala piu’ 
ridotta, l'esigenza di dimostrare le notevoli capacita' grafiche 
del PC 128, abbiamo creato questo programma, che genera 
su schermo effetti di vario tipo. 

Il programma potrà' essere usato cosi' com'e' a scopo dimo¬ 
strativo, oppure per studiare il funzionamento dei comandi gra¬ 
fici Basic. 

Dal listato, inoltre, potranno essere tratte routine grafiche per vi¬ 
vacizzare i vostri programmi. 
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Commento alle linee del programma 

70 

carica in "PI" la costante pi-greco 

30-190 

primo effetto grafico 

210-290 

secondo effetto grafico 

310-400 

terzo effetto grafico 

420-530 

quarto effetto grafico 
550-660 

quinto effetto grafico 

680-770 

sesto effetto grafico 

790-880 

settimo effetto grafico 

900-1060 

ottavo effetto grafico 
1070-1200 

nono effetto grafico 
1210-1340 

decimo effetto grafico 
1370-1400 

subroutine cancellazione 
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10 REM * # # % * # * * # % % # # # * # # % % 

20 REM * * 

30 REM * EFFETTI GRAFICI * 
40 REM # # 

50 REM ***#****##****#*51!*# 
60 REM 

70 PI=3.1416 

SO REM 1 

90 02=1:01=5 

100 GOSUB 1360 

110 FOR R7.=90 TO 10 STEP -2 

120 C7.=RND< 1 > #15 

130 FOR -V/.-O IO 360 STEP 5 

140 A= ( ( 17.-R7./ 10) #2*PI /360> 

150 X7.= <R7.*C0S (A) ) #3/4+128 

160 Y7=R7 * S I'N ( A > +96 

170 L. I NE (128,96 > ■- ( X7, Y7. > , C 

.1.30 NE X T 

190 NE X T 

200 REM 2 

210 02=1:01=5 

220 GOSUB 1360 

230 FOR I7.=0 TO 360 STEP 5 

240 C7.-RMD ( 1 ) #15 

250 A= < < 17. -R 7. / 10 ) # 2 # PI /360 ) 

260 X7.= <90*C0S (A) > #3/4+128 

270 Y7.=90*S IN < A ) +96 

280 BOX ( 128,96 ) - < X7., Y7. ) , 07. 

290 NEXT 

300 REM 3 

310 02=15 

320 GOSUB 1360 

330 R=10 

340 FOR I 7= 1 IO 300 

350 X7.=RND ( 1 ) # (255-2*R) +R 

360 Y7.=RND ( 1 ) * ( 191 -2#R ) +R 

370 C7.=RND ( 1 ) * 15 

380 01 RCL.E ( X7., Y7. ) , R, 07. 

390 PAINT ( X7., Y7.> , 07.' 

400 NEXT 

410 REM 4 

420 01=15 

4-.l*»0 02=0 

440 GOSUB 1360 

450 FOR S7.= l TO 2000 

460 C7.=RND ( 1 ) * 1 5 

470 X7.=RND ( 1 ) # 128 

480 Y7.=RND( 1 > #96 

490 PSET ( 128 -XX, 96-Y7.) , 07. 

500 PSET ( 128+X7., 96+Y7.) , 07. 

510 PSET(128+X7,96.Y7>,07 

520 PSET(128-X7,96+Y7),07 

530 NEXT 

540 REM 5 

550 01=15 

560 01=1 

570 GOSUB 1360 



580 FOR I7.= l TO 300 

590 X-RND(1)*255 

600 Y=RND ( 1 ) *.191 

610 Z=RND'1> *30 

620 XX-RND(1)*15 

630 YY«RND(1)*2*P1 

640 ZZ—RND(1)*2*PI 

650 C 1 RCLE<X,Y>Z„2,X X ;YY,ZZ 

660 NEXT 

670 REM 6 

680 02=6 

690 GOSUB 1360 

700 FOR IX=1 IO 250 

710 XI=RND<1)*255 

720 X2-RND(1)*255 

730 Y1«RND <1)*191 

740 Y2=RND(1,*191 

750 C=RNb ' t)* 15 

760 BOX ( X 1, Y1 ).( X.2, Y2 ) , C 

7/0 IMEXT ' 

780 REM 7 

790 C2~S 

800 GOSUB 1360 

810 FOR I “4 :s: 1 TO 250 

820 XI«RND(1)*255 

830 X?«RND<1>*255 

840 Y1. "RND ( 1 ) *191 

850 Y2=RND(1)*191 

860 C«RND(1)*15 

870 BOXE (XI,Y1)-<X 2,Y2)„C 

880 NEXT 

890 REM 8 

900 C.1 = 15 

910 C2=0 

920 GOSUB 1360 

930 FOR S7.= l TO 2000 

940 CX-“RND ( 1 > *15 

950 COLOR CX 

960 XX=I NT <RND(1)*39) 

970 YX«INT<RND <1>*24) 

980 LOCATEX7., YX 
990 FRI NT ,1 # i ' 

1000 LOCATEXX,YX 
1010 FRINT"#"' 

1020 LOCATEXX,YX 
1030 FRI NT ”# i ' 

1040 LOCATEXX,YX 
1050 FRINT"#"' 

1060 NEXT 

1070 REM 9 

1080 C2=l 

1090 X1=128 

1100 Y1=96 

1110 GOSUB 1360 

1120 FOR 1X=1 TO 300 

1130 X=RND(1)*255 

1140 Y=RND(1)*191 
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1 ! SO 

ORND ( 1 ) * 1.5 

t 1 60 

!... I NE ( X , Y ) - ( X i. 

1 170 

XI ~X 

i i so 

Y1~Y 

1 1 90 

NE XI 

1200 

REM 10 

1. 2. !i 0 

REM 

3 220 

C1 == .1.5 

i v 

C2-- .1. 

1240 

GOSUB 1360 

1 250 

POR Y=0 IO 191 

1 260 

ORND ( 3. ) * .! 5 

1 -'TTO 

L. I NE ( 0, Y >.>: 255 

1 240 

NEI X T 

1 290 

POR E=1 r 0 12 

1 7.00 

POR X~0 IO 255 

1 3 1 0 

ORND -11 ) * 3.5 

1 720 

L. INE ( X+h, 0 ) — ( X 

j 330 

NE X T 

1.340 

NE XI 

! 350 

GOTO 10 

j. 360 

REM 

! 3 70 

K !:::. M c a n C B J. J. a z :i. 

i. 380 

SCREENC1,C2„ C2 

I 790 

GL 3 

[ 400 

RETURN 









BUSINESS 

GRAPHIC 


Prendere una decisione, richiede sempre una attenta valuta¬ 
zione dei dati reali, al fine di poter calcolare, soppesare e pre¬ 
vedere con cognizione, in un qualsiasi campo. Benché' possa 
sembrare possibile ridurre qualsiasi decisione ad una serie di 
operazioni eseguibili con un computer, (perlomeno nei casi 
piu' semplici) nessuna macchina può' pienamente sostituire 
l'elemento umano. 

Il computer, comunque, può' esserci molto utile nell'esposizio¬ 
ne dei dati, aiutandoci in qualsiasi decisione. Il programma di 
queste pagine, permette di visualizzare un grafico a barre di 
dodici dati mensili, rappresentanti qualsiasi tipo di dati numeri¬ 
ci: spese, introiti, ecc. La scala di rappresentazione e' scelta 
automaticamente in funzione del dato di valore piu' elevato in¬ 
serito. Un menu consente di inserire e stampare sia l'elenco 
dei dati che la rappresentazione grafica finale. 
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Commento alle linee del programma 

90 

prepara i vettori N(), K(), M$() 

100 

carica in M$() i mesi 

130-180 

fase di immissione dati 

190 

pone in K(l) il valore relativo a ciascun dato 
220-290 

menu e selezione 

330-410 

visualizzazione dati 
440-520 

stampa dei dati 

540-620 

visualizzazione del grafico 
650-680 

stampa grafico 
730 

dati intestazioni 
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10 R E M * * * * * * * * * *: # * # * * % * t * t % % 

20 REM * * 

30 REM * BUSINESS GRAPHIC * 

40 REM * % 

50 R E M %%*%%%%*t% % * % % % %t%%% % % 

60 REM 
70 REM 

SO SCREEN i,0,O s CLS 

90 CILEAR 500 : D IM N C12 > : DIM K C12 ) ; DIM M$ < 
i 2 > 

100 FOR 1 = 1 TO 12 : READ Mf. < I > s NE X ! 

110 REM 
120 REM 

130 LOCATE 9,OsPRINT "CARICAMENTO DEI DA 
TI " 

140 FRINT SPRINT 

150 MA=0:FOR 1 = 1 TO 12 

160 FRINT "Dammi i dati di "; M$ < I> 

170 INPUT N CI): IF <M CI ) > >MA TTIEN MA~N ( I > 
180 ME X T 

190 FOR 1 = 1 TO 12: l< CI > = < 160*N CI)) /MA: NEX 
T 


200 REM 

210 REM 

220 FL=0 

230 SCREEN 2,0 

240 CLS:LOCATE 


0: CL 
8,3: 


RINT "ELENCO OPZIONI 
" : LOCATE , 4 : F'R INT " ############## " : LOCA 
TE 8, 10: PR'lNT "1. VEDERE I DATI LOCATE 
8, 12 : F’R I NT " 2. STAMPARE I DAT I " : L OCATE 8 
, L4SPRINT "3, VEDERE IL GRAFICO"sLOCATE 


8,16:FRINÌ 
250 LOCATE 


"4. 

8,18:PRIMI 
SPRINT 


ON VAL CF$) 
GOTO 230 
REM 


orrispondente" 

270 .. 

70 
280 
290 
ZOO 
31O 
20 
330 
340 
350 
360 
370 
380 
390 


'LAMPARE IL GRAFICO" 

"5. FINIRE" 

"Premi 11 numero c 


IF F$<"1" OR 
GOSUB 31O,430,530,640,700 


REM 

SCREEN 


0:COLOR 1,15:CLS 
LOCATE 12,3:PRINT "DATI 
FRI NT: F'RINT 
FOR 1=1 TO 12 
FRI NT m CI); " ";NCD 
NE X T 

LOCATE 3,20:PRINT "Premi 
r continuare" 

400 IF INKEY$="" THEN 400 
RETURN 
REM 


CARICATI 


un tasto pe 


41O 
420 
430 
440 
450 
460 


REM 

0F'EN"0" , #1 , "LF'RT : " 
PR'lNT#! „ CHRT C10) 




470 

480 


i/'.O 

40 


f ~\ cr cr; 


POR 1 = 1 I Lì 12 

F'R I NT# 1 „ Hip ( ] ) ; " " ; I} i 1 > 

HE XI 

F'R I NT #:! .. CHRP < 1 9) 

RETURN:CLOSE 
REM 

REM 

SCREEN 7,4,4 s CLS 

FDR (3=0 TO' 192 S'TEP 32 INE ( 0 

: HE X r s LI NE ( (. ! „ 0 ).< 0i 9 1 ) ; L I ME < 

, 1 9 :i. ) 


580 

POR E=5 

TO 22 

5 S 

TEP 20; POR J = .i PO 3: 

D= (E 

2-5) /20+J 

: LOCA 

TE 

( E+6 ) / 820+J ; PRI NT M 

.i. DP ( 

f'TP ■; D 5,4, 

1 ) :: NE 

XT 

J , E 

590 

POR I=5' 

TO 22 

5 S 

TER 20: S= ( 1—5) /20-t ! : 

POR 

IJ= :l. TO 1 

6 : !... I NE < 

I +U, 1 ÒO ) - K 1 +1.1, léj'.i P 

S) ) , 

1 : NEX I U 

T 



600 

:i:f fl=i 

Ì'HEN 

RE T'IJRN 

6.1 0 

l'F INKEY 

" " 

THE 

N 6 .1. 0 

620 

RETURN 




630 

REM 




640 





650 

REM 




660 

FL-- :!. :: GOSUB 53 

0 


670 

SCREENPR 

INI 



680 

RETURN 




/_ Q f-- } 

REM 




■?("}(") 





7 Ì0 

REM 




720 

CLS;END 




730 

DATA BEN 

, FEB, 

MAR 

, APR, MAS, GIU „ L.UG, AGO 


, SET, 0T1' „ NOV, Die 
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BIORITMI 


L'ansia o la paura che affliggono da sempre l'umanità', hanno 
spinto la ricerca anche negli ambiti pseudo-scientifici dell'astro- 
logia e dello studio di presunti ritmi o cicli biologici, detti biori¬ 
tmi. Secondo quest’ultima teoria, la nostra efficienza fisica, in¬ 
tellettiva ed emotiva, seguono dei cicli con periodicità' diversa, 
che si susseguono dal momento della nascita. 

Senza entrare nel merito, della correttezza o meno, di una simi¬ 
le teoria, questo programma permette di calcolare e visualizza¬ 
re in grafici, i diversi andamenti nel mese dei tre ritmi princi¬ 
pali. 

Il programma domanda in "input" la vostra data di nascita (an¬ 
no, mese, giorno separati da virgola) e, in seguito, l'anno e il 
mese di cui volete visualizzare i bioritmi (anno, mese separati 
da virgola). 

Possedendo la stampante e' possibile ottenere grafici su carta 
aggiungendo le linee: 

275 SCREENPRINT 
345 SCREENPRINT 
415 SCREENPRINT 
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Commento alle linee del programma 

io 

carica nella variabile "PI" la costante pi-greco 

20-40 

carica nel vettore DM () i giorni dei mesi 
50-80 
input dati 

90-210 

routine principale di calcolo 

220-280 

disegno grafico curva Fisica 
290-350 

disegno grafico curva Emotiva 

360-420 

disegno grafico curva Intellettiva 

430-510 

subroutine disegno quadrante 

520-530 

subroutine di attesa 
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:l R E M % Se % % % % * * Se * Se * * * * % *: % % 

2 REM * % 

3 REM # BIORITMI Se 

4 REM * * 

5 R E M * * * # % % % % % Se Se %%.%% % % Se Se 
è REM 

1.0 PI —3. 14159 : CLS 
20 DIMM<12) 

30 PORI » 1IO 1 2 : READM ( I):MEXT 
4 0 DAT A31,28 , 3.1. , 30,31,30, 31,3.1,30,31,30, 

50 PRIN ì" ; PRI NT " ########## BI OR ITMI ##### 
#####" 
ò O P R1M T 

70 INPUT"DATA DI NASCITA (ANNO,MFS 

E,GIORNO)VI,MI,DI 

80 INPUT '‘PREVISIONI E A 

NNO,MESE)";Y2,M2 
90 S--M (MI ) -Di 

100 IF(V1~Y2> AND <M1=M2)THENS=0 
HO IFY1. =Y2 THEN GOTO 170 

120 IFM1<>12THENF0RI~M1 +1TD12iS-S+M(I> sN 
EX i 

130 IF<Y1M0D4=0)AND<M1<«2)THENS—S+I 
140 FOR I = Y 1 •+• 1 T0Y2— 1 
150 IFY1M0D4C>0ANDM2>2THENS=B+1 
160 NEXT 

170 IF Y1 =Y2 THEN N--M1 : ELSE N=1 

ISO IF M<M2 THEN CORION TO M2-1:S«S+M(I) 

sNEXT 

190 IF Y2 MOD 4+0 AND M2>2 THEN S«S+t 
200 E=M(M2) 

210 IF <Y2 MOD 4)=0 AND M2=2 THEN E=E+1 
220 CLS ; PR I NT : PR I NT " F’re v j. s I on :i : " 

230 PRINT;PRINT"Andamento del 1 a curva F 
ISICA" 

240 POR TEM—l TO 1000s NEXT TEM 
250 CL.S s FORD-1 TOE 

260 PH=SIN(<(S+D.1)MOD23)/23*2*P1) 

270 Y~PHs G0SUB430:NEXT 

280 GO'SUB520: CLS 

290 PRINTsFRINT"Previ si ani :" 

300 PklNT:PRINT"Andamento della curva F 
MOTIVA" 

310 POR TEM-1 TO 1000:NEXT TEM 
320 CLS:FORD-1TOE 

330 SE~SIN ( < (S+D—1 ) M0D2S> /28Sc2SePI ) 

340 Y—SE:G0SUB430: NEXT 

350 G0SUB520 sCLS 

360 PRINT :PRINT"Pr evisioni:" 

370 PRINT:PRINT"Andamento del 1 a curva I 
NTEELETTIVA" 

380 POR TEM-1 TO 1000:NEXT TEM 
390 CLS:FORD*1TOE 

400 IT=SIN ( ( (S+D—1 ) MDD33) /33SC2SCRI ) 

410 Y=ITsG0SUB430:NEXT 
420 G0SUB520:END 
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DIAGRAMMI 


Molte delle grandezze fìsiche quali: la temperatura, la pressio¬ 
ne atmosferica, eco, come in altro campo: gli andamenti del 
cambio con le monete estere, i valori delle azioni ecc, richie¬ 
dono per essere valutati utilmente, di un particolare sistema di 
rappresentazione chiamato diagramma. 

Nella sua presentazione piu' semplice, esso e' costituito da 
una spezzata in un sistema di assi cartesiani, dove in oriz¬ 
zontale (sull'asse delle ascisse) si valuta il numero delle misu¬ 
razioni in un dato intervallo di tempo, e in verticale (sull'asse 
delle ordinate) il valore effettivo della grandezza in osserva¬ 
zione. 

Con una rapida occhiata ad un diagramma, e’ immediatamen¬ 
te valutabile qualsiasi variazione tendenziale, al di fuori delle 
normali variazioni dovute ai cicli giornalieri, errori di lettura dei 
dati ecc. Con il programma "Diagrammi", potrete ottenere su vi¬ 
deo un preciso diagramma capace di contenere fino a 319 dati 
numerici. Il computer effettua automaticamente sia il calcolo 
della scala di rappresentazione verticale, in base al massimo 
valore introdotto, che quella orizzontale, in base al numero dei 
dati caricati. 

L'unica operazione necessaria alla creazione del diagramma 
si riduce quindi alla sola immissione dei dati, siano essi valori 
di temperatura, che gli alterni andamenti del dollaro, ecc. 
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Commento alle linee del programma 

70 

prepara la matrice contenente i dati 
220 

immissione numero dati 

260-300 

immissione dei dati e ricerca del maggiore (K) 

380 

calcolo della scala orizzontale 

390-460 

disegno diagramma 

470-480 

pausa e restart 
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1 0 R E li ***####***### * * 

20 REM * t 

30 REM % DIAGRAMMI * 

4 0 REM $ % 

50 REM * * ** % *% * % « * 11% % 

60 REM 

70 DIM N(319) 

80 SCREEN 4.7,7 
90 Ci. 3 

100 LOCATE 14., 5 

:! 10 PRI NT " D1AGRAMMI ” 

120 LOCATE 14.6 

130 PRIMI "#########" 

140 LOCATE 5,20 

150 PRIMI "PREMI UN TASTO PER 

I! 


COMI INUAEE 


160 PLAY "DOREMI" 

170 IF I NI<EY$= " " TI-iEM 170 
180 REM 
190 REM 
200 CLS 

210 LOCATE 0,7 

220 INPUT "Quanti dati vuoi caricaro ? ( 
ma;: 319) ";T 

230 IF T< =0 OR T>319 THEN PLAY "DOMIRE": 
BOTO 200 
240 T=1 NT CD 
250 K=0 

260 POR 1=1 TO T 

270 PRIMI:FRINT "Date "; I ;" : " s 

230 INPUT N(I> 

290 IF M <I)>K THEN K=N(I> 

300 NE X 7 I 

310 PRINT:PRINT:PRINT 

320 PRINT "PREMI UN TASTO PER CONTINUARE 

II 

330 IF INKEY$~ : " " THEN 330 
340 REM 


350 REM 

360 SCREEN 7,0,0 
.370 CI S 

380 5 = 320 / (T-l) 

390 POR 1=1 TU T 

400 IF EOO THEN Y < I > =INT < < 190/K) *N < I ) > 
ELSE Y(I)=0 
410 NEXI I 
420 FOR 1=1 TO T-l 

430 LIME •(I-1)#D,190-Y<I))-(I*D,190-Y( 
I +1 ) ) 

440 NEXT I 
450 PAINT CI, 191), 6 
460 PLAY "DOREMI"’ 

470 IF INKEY$="" 

480 RUN 


THEN 470 







GRAFICO 3D 


Il PC 128 possiede ottime capacita' grafiche, in particolare so¬ 
no gestibili due modi principali: il primo (disponibile all'accen¬ 
sione) consente una risoluzione grafica di 320x200 punti con 
possibilità' di gestire la visualizzazione del colore, il secondo 
attivabile con il comando CONSOLE„„1 permette di visualiz¬ 
zare grafica con 640x200 punti di risoluzione. Il programma 
presentato e' un esempio di grafica tridimensionale, che potrà' 
girare utilmente sia nel modo standard, che in quello 640x200 
pixel. 

Nel primo caso, dopo il RUN, apparirà' lentamente una figura 
tridimensionale al centro dello schermo, nel secondo (bat¬ 
tendo CONSOLE,,,, 1 : RUN) apparirà* la stessa figura con riso¬ 
luzione doppia. Nel secondo caso, la figura risulterà' molto 
piu' precisa nel disegno, in quanto i pixel che la compongono 
hanno dimensioni minori, ma molto allungata, poiché' la risolu¬ 
zione verticale e' uguale alla precedente. 
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Commento alle linee del programma 

80 

fissa i colorì (nel modo grafico 640x200 non ha 
effetto) 

110 

inizio ciclo principale 

120 

ciclo secondario 

130-140 

calcolo valore z 

170 

disegno parte sinistra della figura 

180 

disegno parte destra della figura 

210-220 

fine disegno e pausa 
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:l 0 R E li * * # * # t * * * % % % t * % % 
20 REM * $ 

30 REM * GRAFICO 3D # 
40 REM * * 

50 REM ##***#*#**###*>1:* 
□U REM 
70 REM 

80 SCREEM7,O,0 
90 CLS 


1 00 

F OR X7.= 

•-100 IO 

0 


110 





1 20 

V7.= >: SOR 

: < 1 oooo. 

X7.*X7.) / 1« 

0 ) * .1.0 

130 

FOR Y7»~ 

VX IO - 

V7. STEP ■ 

... :l Q 

140 

Z7.= (80+ 

30*C0S( 

(SOR(ABS 

>: X7.#xv.+ 

) / 12) -. 7*'{’/. 

( ) 



150 

IF Z“'.<!•■ 

17. THEN 

190 


160 

B7.= Z7. 





1 70 PSET < X7. + 130, 1 76-Z7. ) 


180 PSET < 125-X 7., 176-Z% ) 
190 MEX T 
200 NEXI 


210 PLAY "DORÈ" 

220 IF INKEY*-"” TI4EIM 220 






PROGRAMMATORE 


DI CARATTERI 
GRAFICI 


Il BASIC del PC 128, ci permette l'uso di numerosi caratteri gra¬ 
fici programmabili in modo molto pratico e semplice. Con 
"DEFGR$= " noi possiamo definire un carattere grafico con 
qualsiasi disegno realizzato su di un quadrato di 8x8 pixel. La 
corrispondenza tra gli 8 numeri del comando, rappresentano 
ciascuno 8 pixel (dall'alto in basso) del carattere. Il manuale 
accenna chiaramente a come ottenere, a partire da un qualsia¬ 
si disegno, dapprima il numero binario e poi gli otto numeri de¬ 
cimali rappresentanti la forma del carattere, ciononostante tale 
procedura non e' molto semplice ne' comoda. Con questo pro¬ 
gramma, potrete facilmente disegnare su schermo la forma del 
carattere grafico e ottenere immediatamente gli otto numeri 
che lo codificano. 

Dopo il RUN, appare una scacchiera di 64 caselle in cui potre¬ 
te muovere il cursore usando i tasti di direzione. Premendo 
contemporaneamente la barra spazio lascerete occupata la ca¬ 
sella con un asterisco; viceversa (se la casella risulta già' oc¬ 
cupata) tornerà’ ad essere vuota. Disegnando la figura deside¬ 
rata sulla scacchiera, e premendo "ENTER", si otterrà' la visua¬ 
lizzazione dei valori di codifica, premendo FI, i dati verranno ri¬ 
portati su stampante. 
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Commento alle linee del programma 

70 

prepara una matrice 8x8 e il vettore contenente i 
dati finali 

80-170 

visualizzazione dei comandi principali 

120-300 

controllo della tastiera 
330-360 

subroutine attesa 

370-440 

subroutine movimento coordinate del cursore 

450-470 

subroutine set-reset quadrato del cursore 

480-490 

calcolo dei codici e visualizzazione 

520-530 

calcolo dei codici e stampa 

540-580 

disegno del quadrato di lavoro 
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:i 0 REM ***# * * * * * * # * % % % * * % % % % % % 

20 REM * t 

30 REM * PROGRAMMATORE OR* * 

40 REM % % 

50 R EM * %t% % %11 # % % * * * *% ******* 

60 REM 

70 DIMM(7,7) ,S <7> 

80 SCREEN1.7,7:CLS 
90 GOSUB320 ' 

100 V*»"###" 

l10 LOCATE1,5:PRINT”** ** Lista COMAMDI * 
###" 

120 L OCATE1, 7:PRINT"CURSORI+SPACE, diseg 
na " 

130 PRINT" RETURN, calcola i valori " 

140 PRINT" FI, stampa" 

150 PEINT" F2, fine" 

160 G0SUB330 
170 G0SUB330 
180 CLS 
190 G0SUB320 

200 PR I NT : PR I NT : PR I NT " Usa i t ast i ci.tr sor 

i e la barra"sGOSUB 540 

210 IX = 1: IY=7 

220 LOCATEIX,IV:GGSUB340 

230 IFA»13THÈNG0SUB480:G0T0220 

240 IFA»11THENG0SUB370:G0T0220 

250 IFA»10THENG0SUB390; GUI 0220 

260 IFA=8THENG0SUB41OsG0T0220 

270 IFA»97HENG0SUB430: 0070220 

2S0 IFA»32THENGOSUB450;G0T0220 

290 IFA»193 T HENGOSUB5205 6010220 

300 I FA» 19 4 THE N S C R E E N O : CLS r. END 

310 G0T0220 

320 CLS:LOCATE1,0sPRINT"128 EDITOR CARAT 
TER I GRAFICI " : F'R I NT : RETI.JRN 
330 L.0CATE2,22; PR INT "Per comi nei are prem 
i la barra spazio" 

340 A*»INKEY*: IFA*»""THEN340 
350 A»ASCIA*) 

360 RETURN 

370 IY»IY—2: IFIY<7THENIY»21 
380 RETURN 

390 IY=IY+2: IFIY>21THENIY=7 
400 RETURN 

410 IX»IX-2: IFIX<1THENIX»15 
420 RETURN 

430 IX»IX +2: IFIX>15 THENIX» 1 
440 RETURN 

450 X»INT(IX/2);Y»INT <IY/2)-3: IFW<X , Y>»0 
THEN470 

460 W <X,Y)=0: LOCATEIX,IY s PRINT" sRETUR 

N 

470 W ( X , Y ) = 1 : LOCATE I X , IY s COL.OR 2 : PR I NT " * 
COLOR 0:RETURN 

480 X» 17 : FORI.--0T07 : S < L > =0 : FORI. 1 =0707 : N=7 
—L1 : S ( L. ) =S < L > +W ( L1 ,L>* 2^N : NE X TL1 ; Y=L # 2+7 
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:: LOCATEX, VSPRINT USINO V*s S(L> ; sNEXTL 
490 RFTURPI 

500 A$=INKEY$ s !FA$ =""!HEN500 
510 A-VAL<A* >: RETURN 

520 X= :l. 7 : OPEN " 0 " , #1 , " LF’TR ; " s PRI NT# 1 . " MAP 
PA CARATEREI ORAR I CO " s FDR!..~0T07 s S (L ) «O: FO 

RL1 T07 s N=7.!.. 1 s S ( !... ) =S ( !... ) •+• W ( !.. 1 „ !... > !<2 i l ; NE 

X fi 1 ; Y»L*2+7:PPINT#1 "Data" ; 8 (!.. > : MIEX * i s C 

! ..OSE# 3 

530 RETURN 

540 LOCA I E 0„6: PE! NT"#################" 
350 FQR A- 1 ! 0 8: FRI NT"# # # # # # # # 


i6< > PR I N i "#################" 

3 ’ 0 NEI X T A 

500 RE ' i.JRN 
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INDOVINA 
LA PAROLA 


Un gioco molto semplice e divertente, che consiste nell'indovi- 
nare una parola "pensata" dal computer di cui conoscete sol¬ 
tanto il numero dei caratteri. 

Una routine di estrazione casuale, utilizzante la funzione RND, 
sceglie la parola tra le 60 disponibili, visualizzando una se¬ 
quenza di trattini che rappresentano i caratteri da indovinare. 
Premendo un tasto sulla tastiera, assisteremo alia comparsa 
di un carattere sulla riga di trattini, nella posizione effettivamen¬ 
te occupata aH’interno della parola da indovinare. Se invece ta¬ 
le carattere non e' contenuto nella parola, apparirà', scartato, 
su di una piattaforma, spostando di una posizione il sasso di 
colore rosso. 

Piu' risulteranno tentativi a vuoto e piu' il sasso verrà' spostato 
verso il piano inclinato, fino alla caduta e alla rivelazione della 
parola non indovinata. Sostituendo i numeri 60 alle linee 120, 
620 e 630, con valori superiori, potrete aumentare anche note¬ 
volmente il numero di parole disponibili, ovviamente aggiun¬ 
gendole in linee "data" oltre la 1010. 
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Commento alle linee del programma 

90-100 

rende casuale l'inizio della sequenza RND 

120 

estrazione del numero-delia parola 

130 

pone in W$ la parola estratta 

170 

controlla se la parola battuta e' corretta 

180 

controlla se si sono superati i 10 tentativi errati 

200-250 

routine partita persa 

260-390 

routine partita vinta 

400-580 

disegno schermo 

590-640 

caricamento vettore parole 
Il 650-780 

subroutine sasso caduto 
790-930 

subroutine input caratteri 
940-1010 
dati parole 
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:l 0 R £ M **** * * * * * * * * * % * * * *: * * * * 

20 REM * * 

30 REM * INDOVINA LA PAROLA * 

40 REM * * 

5 0 REM * * * * * * * % % % % % * * * * * * * # * % 

60 REM 
70 REM 

SO CLEAR 2000 

90 PRIMI"PREMI UN TASTO..." 

100 IF INKEY$=""THEN A-RND<1>sGOTO 100 
HO GGSUB610 
120 W—INT(RND < 1)*60)+I 
130 w$==d$*:w> 

140 G0SUB420 
150 G0SUB810 
160 FLAG--0 

170 IF T*=W*THENGO'T0280 

180 IFLEN « G* ) = 10TPIENG0T0220 

190 GOTO150 

200 REM PARTITA PERSA 

210 REM 

220 G0SUB670 

230 COLOR2: LOCATE1,19:PRINT"La parola er 
a " 

240 LOCATE1,20sPRINTWT 

250 00T03SO 

260 REM PARTITA VINTA 

270 REM 

2SO REM 

290 IFG$=""THENG0T036O 
300 FORN-LEN(G*> TO1STEP-1 
31O G$=RIGHTT(G$,N-1) 

320 m=" DQREDOREDOREMIMIMI":PLAYM* 

330 G0SUB900:PRINT" " 

340 FORW=1T0250:NEXTW 
350 NEXTN 

360 LOCATE 14,3: PR INT" COMPÌ... IMENI I " 

370 LOCATE 14,4: PRINT " - --- " 

330 A*=INKEY*: IF A$=""THEN3S0 
390 BEEP:GOTO120 
400 REM SCHERMO 
410 REM 

420 SCREEN2, 0, 0 : CL.S 
430 COLOR 3 : CLS 

440 LOCATE 12,OsPRINT"INDOVINA LA PAROLA 
COLOR 4 

450 A*="####################" 

460 LOCATE11,1:PRINTA* 

470 L0CATE3, 7: COLOR 1 : PR INT " S)" 

480 BOXF(128, 100)-(208, 160 >,4 
490 LINE(120,88)-(128,i00),4 
500 LINE <216,88)~ (208,100),4 
510 L. I NE < 0,65 ) - < 104,65 ) , 14 ' 

520 LINE -STEP ( 2028 ) , 14 ' 

530 COLOR 11 : LOCATE1,10:PRINT"PAROLA:-" 
540 L0CATE5,14:T$="":G*="" 

550 COLOR 5 : FORM -1 TOL.EN ( NT ) 

560 PRINT"-";s T*=T*+" " 

570 NEXTN __ 
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580 RETURN 

590 REM I il IZI ALIZ ZAZIONE 
600 REM 

610 RESTURE960 
620 DIMD*(60) 

630 FORN» 11060: READDi (N) : MEXTN 
640 RETURN 
650 REM CADUTA 
660 REM 

670 FORM- .1.3T018 

680 COLOR 1 ;LOCATEN,N.6 

690 FRI NT"Si)” 

700 POR A— 1 T'O 100: NEXTA 
710 COLOR O : L OCATEN „ N--6: PRINT " " 

720 MEXTN 

730 PSET • 20*8, 13*8) : LINE-STEP <.8O> „ 4 

740 FORI = 1 TU 15 : J ~-~RND ( 1 > *20: K--RND < 1 ) *40- 

y ii 

750 LI NE-STEP ( K, J ) , 4 : L. I NE-STEP < ~K,. J ) , 4 

760 NEIX TI 

770 FORW-1T0500 : NEXT'W 
780 RETURN 
790 REM INKEY$ 

800 REM 

810 A* — I NKEYi : I FA*= " " THENG0T0810 

820 A*=CHR*<ABC(Ai)AND223>: PLAY"DODOREMI 

I! 

830 I FAM " A " ORA* > " Z " THENG0TD81.0 
840 FLAGRO:COLOR 9 
850 FORN= 1 T0I....EN < Wi ) 

860 IFM 3: D* ( W*, N „ 1 ) = A * T H E N L. 0 C A T E N •+• 4 , 13 ; P 
RI ITT A* ; MIDi ( Ti, N, 1 ) = A* : FLAG= 1 
870 MEXTN 

880 1FFLAG=1THENPLAY"DODO" : RETURN 
890 G * A $+G * 

900 ’ 

91ò LOCATE3,7 : COLOR 13 

920 Gi=G$ ; PR 1 NTOi ; ; COLOR 1 : PR I NT " Si) " 

930 RETURN 
940 REM DATA 
950 PPM 

960 DATA I COMA, ACUTO, AVVERO 10, ALBERO, AL¬ 
TERO , AMERICA, FACI LE.. CERVELLO, CASSETTA, DI 
SCO ' 

970 DATA VIZI0,MELONE,OPERA,PITOME,GIRAF 
FA,VOLANTE,PIATTO„ENERGIA,RIPOSO,SOSPIRO 
980 DATA NÈGOZ 10, OMBRELLO, CAM ICIASCARPE 
, ANIMALE, COMPUTER, MONITOR, PERTICA', SCUOLA 
,BRADIPO' 

990 DATA C: IPOLLAESTREMO, FOSFORO „ FORMICA 
, GALI... I MA „ GIUDI Z IU, GIUDICÈ, TASCA, POPOLO, R 
AMAZZA 

1000 DATA CANI IN A, SA TELI.. I TE, SCI I ROCCO, SAP 
ONE,CHI TARPA,COMMÈDIA,COMPITO,MUSICA,CAB 
SETTO.CARRELLO 

1010 DATA PIGIAMA,QUADRO,CORNICE,OROLOGI 
0,ANTENNA,SEGGIOLA,TAPPETO,POLTRONA,CEST 
INO,GIARDINO 
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INTERVISTA 


Sovente, forse a causa della diffusa cinematografia fantascien¬ 
tifica, siamo portati ad immaginare il computer come ad una fa¬ 
volosa macchina "pensante", capace, all'occorrenza, di ri¬ 
sponderci a tono come fosse un vero interlocutore umano. Chi 
ha studiato realmente questo problema, cioè’ la comprensione 
del linguaggio naturale da parte di un computer e le applicazio¬ 
ni avanzate dell'Intelligenza Artificiale, sa come sia praticamen¬ 
te impossibile creare un computer capace di interpretare e ri¬ 
spondere in modo sensato e pertinente ad una qualsiasi do¬ 
manda. Forse anche chi legge e’ capace di scrivere un pro¬ 
gramma che risponda alla domanda: «Quanto fa 10x8?» e 
ad altre similari. 

Molto piu' difficile, o addirittura impossibile, far rispondere i 
computer su argomenti piu* vasti: «Scalda molto la CPU?», 
«Quale marca di cassette preferisci?» oppure «Chi era Na¬ 
poleone?». Rimanendo in un ambito molto ristretto, o addirit¬ 
tura dove l'ambiguità' e' permessa, potremo creare ottimi pro¬ 
grammi pseudo-intelligenti capaci di predirci il futuro oppure di 
comporre poesie, ecc. Il programma "Intervista" fornisce delle 
risposte abbastanza pertinenti ad una qualsiasi vostra doman¬ 
da su argomenti politico-sociali. Il segreto e' semplice: le rispo¬ 
ste sono create combinando casualmente soggetti, verbi e 
complementi, in modo grammaticalmente logico, per formare 
una infinita' di frasi di significato ambiguo. 


41 








Commento alle linee del programma 

70-80 

rende casuale l'inizio della sequenza RNO 
130 

INPUT (la domanda e' puramente opzionale) 

140-190 

estrae 7 sequenze casualmente dalle aree data 
corrispondenti 
220-310 
area dati n.1 
330-420 

area dati n.2 
440-530 

area dati n.3 
550-640 

area dati n.4 
660-750 

area dati n.5 
770-860 
area dati n.6 
880-970 

area dati n.7 
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10 R E M 11 % * * * *' t :K *: % * * * * t % * 

20 REM * t 

30 REM * INTERVISTA *: 

40 REM % % 

50 REM %%%%%*%%%%%%%%%%%% 

60 CLS 

70 FRINT"PREMI UN TASTO..." 

SO IF INKEY$="" THEN A=RND<1): GOTO SO 
90 CLS 
100 FRINT 
110 FRINT 

1 20 PRINT ’'Buoriqi a rno, sono 1 ’ onor ev a 1 e 
128, sono a sua disposizione per qualsia 
si chi ari mento, mi -faccia pure delle dorn 
ande.. . " 

130 PRI NT : I NF'UT A* : PRI NT 

140 POR X~1 T0 7 

150 POR F=1 TO 20:DEEP; NEXT F 

160 ND=INT (RND*10)+1 

170 FOR A=1 TO 10:READ A$ 

180 IF ND=A THEN FRINT A$ 

190 NEXT A: NE X T X 
200 RESTOSE:GOTO 130 
210 REM 1 

220 DATA "L’utenza potenziale " 

230 DATA "Il bisogno emergente " 

240 DATA "Il quadro normativo " 

250 DATA "La valenza epidemiologica " 

280 DATA "Il nuovo soggetto sociale " 

270 DATA "1.7 ap p roc c i o ” p r oq r a mrna t i c o 1 ' 

280 DATA "L ’ assetto poi i t i co i sti tuz i ori a 

le" 

290 DATA "Il criterio metodologico " 

300 DATA "Il modello di sviluppo " 

310 DATA "Il metodo partecipativo " 

320 REM 2 

330 DATA "si caratterizza per " 

340 DATA "pr ivi 1eqia " 

350 DATA "prefigura " 

360 DATA "riconduce a sintesi " 

370 DATA "persegue " 

380 DATA "estrinseca " 

390 DATA "si propone " 

400 DATA "presuppone " 

410 DATA "porta avanti " 

420 DATA "auspica " 

430 REM 3 

440 DATA "il ribaltamento della logica a 
ssistenzìale preesistente " 

450 DATA "il superamento di ogni ostacol 
o e/o resistenza passiva " 

460 DATA "un organico collegamento inter 
disciplinare ed"una prassi di lavoro di 
gruppo " 

470 DATA "la puntuale corrispondenza tra 
obiet tivi e r i sor se " 

480 DATA "la verifica critica degli obi e 



11. i v i i s t. i t u z j. o n a I i e 1 7 i n ci i v i d u a z i o n e c:! 
i fini qualificanti " 

490 DATA ":il riorientamento delle linee 
di tendenza in atto " 

500 D A T A " 1 ’ a c: c o r p a m e n t o d e 1 1 e f u n z 1 o n i 
e d i 1 d e c e n t r a m e n t o d e <::: i s :i. o n a I e ' 1 
510 DATA "la ricognizione del bisogno em 
ergente e della domanda non soddisfatta 

I! 

520 DATA "la ri conversione ed articolaci 
o n e p e r i. e r :i. c a d e i s e r v i z i ' 1 
530 DATA "un corretto rapporto fra strut 
ture e sovrastrutture " 

540 REM 4 

550 DATA "nel primario interesse della p 
opol. az i one " 

560 DATA "senza pregiudicare 1"attuale 1 
i v e 11 o d e 11 e p r e s t a z i o n i 1 ' 

570 DATA "al di sopra di interessi e pre 
ssioni di parte " 

580 DATA "secondo un modulo di interdipe 
n d e n z a o r i z z o n t ale " 

590 DATA ":i.n una visione organica e ri co 
n d o 11 a a u n i t a 7 " 

600 DATA "con criteri non dirigistici " 

610 DATA 1 'a 1 di la’ de 1 1 e c:ontraddi z i oni 
e d i f f i. c o 11 a 7 i n i z i a 1 i ' ' 

620 DATA "in maniera articolata e non to 
tal i zzante " 

630 DATA "attraverso i meccanismi della 
parteeipazione " 

6 40 DAiTA ''senz a precosti tuz i one delle ri 
sposte " 

650 REM 5 

660 DATA "sostanziando e vita1izzando " 

670 D A T A ' ' r e c: u p e r a n d o o v v e r o r i v a 1 u t a n d o 

li 

6S0 DATA "ipotizzando e perseguendo " 

690 DATA "non assumendo mai còme implici 
to " 

700 DATA " f attuai i zzando e concretai :i zza 
ndo " 

710 DATA "non sottacendo ma anzi puntuta 1 
izzando " 

720 D A T A " p o t e n z :i. a n d o ed ine r e rii e n t a n d o ' ' 
730 DATA "non dando certo per scontato " 
740 DATA "evid enzian do ed esp1icitando 11 
750 DATA "attivando ed implementando " 
760 REM 6 

770 DATA "nei tempi brevi ,anzi brevi ssi 
mi " 

780 DATA "in un’ottica preventiva e non 
piu 7 curativa " 

/90 DAI A "in un ambito territoriale omog 
eneo, ai. diversi livelli " 

800 DATA "nel rispetto della normativa a 
ssistente " 
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GIOCO 
DEL SASSO 


E' questo un divertente gioco di coppia, consistente nel con¬ 
fronto tra due giocatori, impegnati nel trovare il modo per rea¬ 
lizzare su di un tabellone di 7x5 caselle, una fila verticale, oriz¬ 
zontale o diagonale di 4 pedine. 

Il programma gestisce in questo caso, sia la visualizzazione 
dello schermo di gioco, che il controllo delle pedine, indi¬ 
cando immediatamente la vittoria o la situazione di pareggio 
tra i due contendenti. 

Subito dopo il "RUN" del programma, dopo il breve sommario 
delle regole di gioco, appare il casellario delle pedine. Uno al¬ 
la volta, i giocatori sono chiamati a premere un tasto numerico 
da 1 a 7, una pedina del proprio colore verrà' inserita nella co¬ 
lonna specificata sopra eventuali pedine esistenti nella stessa. 
Il giocatore che riuscirà' a porre 4 proprie pedine in fila, in qual¬ 
siasi punto del tabellone, avra' partita vinta. 
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Commento alle linee del programma 

70-130 

sommano delle regole 

150 

dimensiona la matrice "tabellone" 

180-190 

disegno pedine-legenda in alto a sinistra 
200-260 

disegno pedine del giocatore 1 

270-330 

disegno pedine del giocatore 2 

350-1130 

routine principale e subroutine 

1140 

subroutine partita pari 

1150 

subroutine partita vinta 

1170-1210 

scelta abbandono o continuazione 

1220-1370 

disegno tabellone di gioco 
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10 R E hi * * * * # * * * * )tc * % % % * % % * % % * * 

20 REM * *: 

30 REM * GIOCO DEL. SASSO % 

40 REM t * 

50 REM * * # * t * * **#* * « * $ * * * * * # # 

60 REM 

70 SCREEM 1,7,7 
SO CL.S : Y=0 s X=0 : Q=0 : M=0 

90 LOCATE 10,2;PRIMI "GIOCO DEL SASSO" 

100 LOCATE 0,5;PRINT"IL GlOCATORE 1(0IAL 
LO) E IL GIOCATORE 2(ROSSO) MUOVONO A 
TURNO":PRINT :PRINT"IL DI SCO CADRÀ’ NELL’ 
ULTIMA CELLA"SPRINT"LIBERA DELLA RIGA SE 
LEZIONATA" 

1 10 LOG ATEO ,11: PR I NT " I !.. PR IMO GI OCATORE 
CHE RILJSCIRA A" : PR INT" DI SPORRE QUATTRO 
DISCHI IN FI LA":PRINT"IN SENSO VERIICALE 
,":PRINT"ORIZZONTALE, 0 IN DIAGONALE SAR 
A" ":PRINT:PRINT" IL VINCITORE ! 

i20 LOCATE 2,21:PRINI"PREMI UN TASTO PER 
CONTINUARE"‘ 

130 A$-1NKEY$: IF A$=" " THEM GOTO 130 
140 CLSsSCREEN2 
150 DIM Y(6,5) 

160 GOSUB 1220:REM DISEGNA IO SFONDO 
170 S=1: 0=1 

1 SO CIRCL.E < 16, 16) ,8,3: F AINT < 1616) , 3 
190 LOCATEO ,3' : PR I NT " NR 1 " : CI RCL.E ( 16,60 
),8,1:PAINT" ■16,60),1 :LOCATEO ,9:PRINT"N 
R' 2" 

200 S== 1 : Q= 1 

210 LOCATE 1,21:PRINT"GIOCATORE 1":K$=IN 
KEY*: LOCATE 11,21 : PRINTK*: K=VAL <K*> : IFI<>7 
ORI« 1THENGOTQ 210 

220 COLOR 4 : LOCATEO ,21: PR I NT " * * * * * * # 11 % * 
* " : COLOR15 
230 GOSUB 390 

240 CI FICEE ( < X*24 :» +56, (M*24> +24 ) , 8,3: PAIN 

T ( ( X * 24 ) +56, ( M *24 ) +.24 ) , 3 : Y ( X , M ) =S 

250 GOSUB 350 

260 GOTO 540 

270 3=2:0=2 

280 LOCATE1,21:PRINT"GIOCATORE 2 ":K*=IN 
KEY* : LOCATE i 1,21: PR INTK* : K=VAL. < !<$ ) : I F'l< >7 
0RI«1 THEN GOTO 280 

290 COL.OR 4 ; LOCATEO ,21: PR I NT " * * * * * * * * * * * 
*": COLOR15 
300 GOTO 390 

310 CIRCLE ( <X*24> +56, <M*24> +24) .. 8,1: PAI 
NT <<X * 24)+56, < M*24)+24), 1 :Y CX,M)=5' 

320 GOSUB 350 
330 GOTO 540 
340 GOTO 210 

350 B=0: PORA=0T06: IFY(A,0)=1ORY<A,O)=2TH 

ENB=B+1 

360 NEXT A 



370 IFB-7THEWG0T01140 
300 RETURN 
390 X=K~ 1 

400 IF Y * X , 0 ) = 1 OR Y ( X , O ) --2THEN ON S GOTO 
210,280 

410' IF Y ( X , 1} .1 OR Y C X1 ) =2 THE! ) GOTO 48 

420 IF Y<X„2>=1 OR Y < X, 2) =2 THEN GOTO 49 

<■) 

430 IF Y(X,3)=1 OR Y<X,3)=2 THEN GOTO 50 

440 IF Y(X,4)-1 OR Y <X,4)=2 THEN GOTO 51 

Q 

450 IF Y ( X , 5 ) = 3. OR Y<X,5)=2 THEN GOTO 52 

o 

460 IF Y(X,5)<)1 OR Y<X,5><>2 THEN GOTO 
530 

470 ON S GOTO 240,310 

480 14=0:GOTO 470 

490 14=1 : GOTO 470 

500 li”2 : GOTO 470 

510 M=3:GOTO 470 

520 li=4 s GOTO 470 

530 14=5: GOTO 470 

540 IF X + l>3 THEN GOSUB 900 

550 IF X+l<5 THEN GOSUB 880 

560 IF X+1>1 AND X+l<6 THEN GOSUB 1100 

570 IF X+l>2 AND X+2<7 THEN GOSUB 1120 

580 IF li<3 THEN GOSUB 920 

590 II- li>2 AND X + l<5 THEN GOSUB 940 

600 IF M>2 AND X + l>3 THEN GOSUB 960 

610 IF 14=5 THEN GOTO 760 

620 IF 14<3 AND X + l<5 THEN GOSUB 980 

630 IF li<3 AND X + l >3 THEN GOSUB 1000 

640 FOR 0=1 10 6 

650 IF 14=4 AND X + 1=C THEN ON C GOSUB 780 
,790,800,800,800,81O 
660 li E X T C 

670 IF M=4 THEN GOTO 760 
630 FOR D=1 TO 6 

690 IF M=3 AND X+1=D OR 14=2 AND X+1=D TH 
EN ON D GOSUB 780,830,840,840,840,S50 
700 NEXT D 

710 IF M=3 OR 14=2 THEN GOTO 760 
720 FOR E=1 TO 6 

730 l'F 14=1 AND X + .1=E THEN ON E GOSUB 780 
,1040,860,860,860,1020 
740 NEXT È 

750 IF 14= 1 OR 14=0 THEN GOTO 760 
760 IF S=1 THEN GOTO 270 
770 IR 8=2 THEN GOTO 200 
780 RETURN 

790 GOSUB 1060:RETURN 

800 GOSUB 1060:GOSUB 1080:RETURN 

310 GOSUB 1080:RETURN 

820 GOSUB 980:G0SUB540:GOSUB1020:GOSUB10 
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40:RETURN 

830 GOSUB 1060: GOSIJB 1040: RETURN 

840 GOSUB 1060:GOSUB 1080:GOSUB 1020:GOS 

UB 1040:RETURN 

850 GOSUB 1080:GOSUB 1020: RETURN 

860 GOSUB 1040:GOSUB 1020:RETURN 

870 GOSUB 980"GOSUB 3820:GOSUB 3980:GOSU 

B 4000:GOSUB 3940:GOSUB 3960:RETURN 

880 IF Y < X + 1, M ) =Q AND Y ( X+2, Il ) =13 AND Y < X 

i3,M)=Q THEN'GOTO 1150 

890 RETURN 

900 IF Y <X -1,M)=Q AND V<X-2,M)=0 AND Y < X 
- 3, li ) -0. THEN ' GOTO 1150 
91ó RETURN 

920 IF Y C X , M+1 ) =Q AMD Y<X,M+2>=Q AND Y < X 
,M+3)=Q THEN GOTO 1150 
930 RETURN 

940 IF Y < X +1 , li-1 > =Q AND Y ( X +2, M-2 ) =Q AND 

Y < X+3,M—3 >=0 THEN GOTO 1150 ' 

950 RETURN 

960 IF Y < X-1 , M-1 > =Q AND Y ( X -2, M--2 ) =Q AND 

Y ( X--3, li—3} =Q THEN GOTO 1150 
970 RETURN 

980 11- Y < X +1 , 14+ 1 ) =Q AND Y ( X +2, li+2 > =Q AND 

Y < X+3, li+3) =0 THEN GOTO 1150 
990 RETURN 

1000 IF Y < X -1, M i-1 ) =Q AND Y ( X -2, M+2 ) =0 AN 
D Y ( X—3, M + 3 ) =0 THEN GOTO 1150 ' 

1010 RETURN 

1020 IF Y •; X + 1, M-1 ) =Q AND Y ( X-1, M+1 ) =Q AM 
D Y ( X—2, M+2) ~0. THEN GOTO 1150 
1030 RETURN 

1040 IF Y(X—1,M—1)=Q AND Y(X+1,M+1)=G AN 
D Y <X+2,M+2)=0 THEN GOTO 1150 
1050 RETURN 

1060 IF Y • X -1, M+1 ) =Q AND Y < X +1, M-1 ) =Q AN 
D Y<X+2,M—2)=0 THEN GOTO 1150 ' 

1070 RETURN 

1080 IF Y(X +1,M+1)=Q AND Y<X-1,M~1)=Q AN 
D Y (X-2, M-2) ~0. THEN GOTO 1150 ' 

1090 RETURN 

1 100 IF Y ■: X -1, M ) -0 AND Y < X +1, M ) =Q AND Y < 
X+2,M)=07HEN GOTO 1150 
1110 RETURN 

1120 IF Y < X -2, M) =Q AND Y ( X -1, li) =0 AND Y < 
X +1,M)=0 THEN'GOTO 1150 
1130 RETURN 

1140 LOCATEO,21:PRINT" P ARTITA PAR 

I": GOTO 1160 

1150 LOCATE 0,21 SPRINT" IL. GIOCATOR 

E";S;"HA VINTO": PLAY"DOREMIDORÈ" 

1160'COLOR 4:LOCATEO,21:PRINT" 

": COLOR 15 

1170 LOCATE 5,23:PEINT"VUOI GIOCARE ANCO 
RA (S/N)" 

1180 AT=INKEYL 

1190 IF A^="S" OR A*=»"s"THEN CLEAR: CL..S: G 





ù IO 


:l 22' 

l: 


J. w 
1 


:! 34' 
135 


150 

' Il OR AT - "n "■ ! 

> GOTO j j £40 
REM SFONDO 

:> r OR G : - : 5 T U 26 

:» r:ir h=i tu i 9 step c; 

) LOCATEG l-i; PRIN ì " *" 

) NE X T Eh NÈ X T G 

> POR G : ~5 TO 26 STEP 3 

■ F OR H=2 TO I7 STEP 3 

:• LOCAI e: G, H: PRIMI " i " 

> ME XI l-l: ME XI G 

) PO l-i G= : 5 TO 26 STEP 3 

) POR H~3 IO 18 STEP 3 

) LOCATE G,H:FRINT"* " 

:• ne: X T 11 : NÈ X T 0 
) W'N.:FOR 1 ■:6 TO 24 STE 
:> L 0 C A I E R, 0 : P HIN T Ul : W=Fi f 
) RETURN 
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ANAGRAMMA 


Ecco, un’esempio pratico, di utilizzo delle funzioni di genera¬ 
zione di numeri casuali in questo semplice gioco, il cui scopo 
e' indovinare una parola anagrammata dal computer. Una limi¬ 
tata, ma sufficiente, biblioteca di parole (linea 770 in poi) forni¬ 
sce volta a volta, una parola scelta a caso che vi verrà' propo¬ 
sta anagrammata. 

La routine di estrazione casuale utilizza la ben nota funzione 
RND (linea 290) che, opportunamente utilizzata, genera ogni 
volta un gioco differente. La routine che anagramma la parola 
estratta, e' anch'essa ad andamento casuale (linea 290) e ge¬ 
nera anagrammi sempre differenti. Per garantire una effettiva 
pseudo-casualita', e' necessario che la funzione RND risulti es¬ 
sa stessa inizializzata da un valore casuale. Ciò' e' ottenuto 
con la linea 190, che esegue un numero di lettura RND dipen¬ 
dente dal tempo di risposta dell'utilizzatore, quindi sufficiente- 
mente casuale. Infatti, se proviamo ad eliminare la linea 190, 
il computer proporrà' ad ogni RUN sempre le stesse parole in 
sequenza e anagrammate nello stesso modo. 

Desiderando ampliare la libreria di parole presenti, basterà' so¬ 
stituire alla linea 220 il valore esistente (40) con quello delle 
parole presenti nelle linee DATA. 
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Commento alle linee del programma 

90-170 

spiegazione dei gioco 

180-190 

attesa e inizializzazione casuale della sequenza 
RND 
220-260 

caricamento in U$() di tutte le parole presenti 

290-300 

estrazione casuale di una parola (a$) 

320-430 

anagramma casuale di a$ (c$) 

440-510 

visualizzazione anagramma 

520 

input parola 
530-540 

selezione dei casi possibili 

550-620 

routine "parola errata" 

630-690 

routine "abbandono" 

700-760 

routine "parola corretta" 

770-790 

libreria parole 
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10 REM 11% %*%%%%%*%%*% % % 

20 REM % % 

30 REM * ANAGRAMMA # 

40 REM t % 

50 REM * % % % % % % % % % * % % % % % % 

60 REM 

70 CREAR 400 
SO F$~" 

II 

90 SCREEN 15.1,1 
100 CLS 

110 LOCATE 0,2 

120 ATTRB 1,1 SPRINT "GIOCO DELL. ' ANAGRAMM 
A":ATTRB 0,0 
130 LOCATE'0,6 

140 FRI NT "SCOPO DEL. GIOCO E’ INDOVINARE 
IL NOME DI UN ANIMALE ANAGRAMMALO DAL C 
OMPUTER" 

150 LOCATE 0,12 

ISO FRINT "SE NON RIESCI AD INDOVINARE D 
IGITA LA PAROLA (FINE) PER AVERE LA RI 
qpnSTA 11 

ì 7o " CI...EÀR : LOCATE 1,20 

ISO FRINT "PREMI UN TASTO PER CONTINUARE 

11 

190 IF INKEY*=""THENA=RND<1): GOTO 190 
200 PLAY "MI" 

210 CLS 
220 N~40 

230 DIM V*(N): DIM B$(20) 

240 FOR 17=1 TO N 
250 READ V$(I7> 

260 NEXT 
270 P$="" 

280 C$—"" 

290 S=1+(N-1)#RND(1) 

300 A*=V$(S) 

310 •’ 

320 L=LEN(A*) 

330 DIM A (L.) 

340 FOR 17=1 TO L 

350 B$(I%)-MIDT(A*,17,1) 

360 NEXT 
370 CLS 

380 X=INT<L*RND(1))+1 
390 IF A(X > =1 THEN 370 
400 A < X ) = 1 
410 C$=C$+B$ ( X ) 

420 IF LEN(C$)=L THEN 440 
430 GOTO 380 
440 LOCATE 8,3 

450 FRINT "PAROLA DA INDOVINARE" 

460 LOCATE 19~L./2,7 
470 FRINT C$ 

480 LOCATE 0,14 
490 FRINT F$ 

500 DEEP 



LOCATE.' 4,14 
INPUT "Parola s ";P* 

IF P««"FINE" THEM 630 
IF P$=A$ THEM 700 
LOCATE 0,14 
PRIMI' F$' 

LOCATE .1.4, 14 
PRINT "ERRATA";SPC<SO) 

PLAY "DO" 

FOR 1=1 TO 250 

NEXTs LOCATE13, 14 :PRI N T SPC(10) 
GOTO 510 

CI....S 

LOCATE 2,IO 


530 
540 
5 0 
560 

5 7 o 

5 SO 
590 
600 
610 

6 7ì O 
640 
650 
660 
670 

690 

7 00 

7 i o 
y ‘‘p () 
~7 7i O 

74Ò 

750 

/ «S » ) 


PR I NT 

"La parola ora 

PLAY " 

RE" 

FOR 1 = 

1 TO 750 

NE X I 


GlJ ! 0 1 

7 0 

LOCATE 

1 1 , 10 

PR I NT 

"PAROLA CORREI' 

PLAY " 

DORÈ " 

FOR I* 

1 IO 240 

NE X T 


GOTO 1 

70 


" ; m 


7 70 DATA ARMADI LEO, TARTARUGA, GUFO. P l CC10 
NE, CANE, GATTO, PECORA, FA INA, DROMEDÀRI IO„ CA 
NGl'JRO, LEONE, G 1 RAFFA, PUMA 

780 DATA PINGUINO,FOCA,TIGRE,AIROME,PANI 
ERA,SCIMMIA,ELEFANTE,MUCCA,ASINO,ORSO,BA 
LENA, MA I ALE, TACCHI NO ANATRA, CON I Gl... 10 ' 

7 SO DATA CERVO, AQUI LA, SQUALO, I GHANA.. TOPO 
,SCOIA ITOLO,RANA„PIPIGIRELLO,CORVO,RICCI 

a, cinghiale;volpe 
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NUMERI ROMANI 



Ecco una semplice applicazione, per la conversione dei nume¬ 
ri arabi (la grafia da noi utilizzata correntemente) in numeri ro¬ 
mani. Il programma e' in grado di convertire tutti i numeri com¬ 
presi tra 1 e 3999 nel numero romano corrispondente, grazie 
ad un semplice algoritmo utilizzante la tabella di conversione 
contenuta nello statement "data" alla linea 410. Tale tabella 
contiene in posizioni contigue il numero arabo e il corrispon¬ 
dente numero romano. Un semplice ciclo, confronta il numero 
da convertire con i numeri della tabella, sottraendo tutti i nume¬ 
ri di valore inferiore e compilando progressivamente la stringa 
B$ con il risultato. 
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Commento alle linee del programma 

150 

prepara i vettori A$() e N() 

170-190 

carica in A$() i numeri romani e in N() la corri¬ 
spondenza in arabi 

200-260 

input numero 

270-320 

routine di conversione 

330-360 

stampa risultato 

370-400 

restart 

410 

tabella di conversione 
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CODICE 
A COLORI 


Chi conosce l'elettronica, sapra' sicuramente cos'e’ il codice a 
colori; il mezzo principalmente usato per descrivere le caratteri¬ 
stiche di alcuni componenti elettronici. Infatti, per le piccole di¬ 
mensioni dei resistori e di alcuni tipi di condensatori, non e' 
possibile stampigliare sull'involucro le cifre che specificano le 
principali caratteristiche di resistenza, capacita', tolleranza di 
produzione, ecc. 

In questi casi e' universalmente adottato il "codice a colori", 
che codifica in quattro fasce colorate, tutti i dati essenziali. Il 
programma effettua direttamente la conversione dei colori pre¬ 
senti su di un resistore, nell'effettivo valore di resistenza elet¬ 
trica e tolleranza. La conversione attuata e' la seguente: 


Nero = 0 
Marrone = 1 
Rosso = 2 
Arancio = 3 
Giallo = 4 


Verde =5 
Blu = 6 
Viola =7 
Grigio =8 
Bianco =9 


Tener presente che la prima e la seconda fascia di colore spe¬ 
cificano i primi due numeri, la terza fascia il numero di zeri da 
aggiungere e la quarta il valore di tolleranza: 


Marrone = 1% 

Rosso = 2% 

Oro = 5% 

Argento = 10% 
Nessun colore = 20% 
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Commento alle linee del programma 

170-180 

input primo colore 

230-240 

input secondo colore 
280-290 

input terzo colore 
300 

input quarto colore (fascia della tolleranza) 

340-380 

carica in T il valore percentuale di tolleranza 

390-540 

visualizzazione del risultato 

560-600 

ricerca del colore e caricamento in "I" del risultato 

610-560 

input colore (in caso di immissione errata) 

650-670 

dati colore; il valore di conversione e’ l'ordine 
posizionale 
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... 

REM * * 

V M 

REM # 

;•!; n 

REM # 

£L () 

REM * 

60 

REM 

ZO 

SCREEN 


5 r" 

O i") 

LOCATE 

i 00 

PRIMI 

j. iO 

PR I NT 

:i 20 

PR I NT 

130 

R--0 

140 

A^== " " 

150 

T--0 

160 

“? ci: — ' ' 

•L 4 -- — 

1 70 

INPUT 

ISO 

IF A* 

190 

GOSUB 

200 

B*=A* 

210 

R=I*1' 


* * * * $ * 11 * t % * % 11 * * * * * 


INPUT "Dammi il secondo colore: ”:AS 

IF A*-.THEN PLAY "RE":GOTO 250 ' 

GOSLJB 550 

R=R+ .1 

INPUT "Dammi il terzo colore: " : ft-$ 

IF A$= " " THEN PLAY "MI”: GOTO 280' 

GOSLJB 550 

E*=A* 

R=R# IO"'" I 

INPUi "Dammi il quarto colore; ":F$ 
IF F*="MARRONE" THEN T=l:fiOTO 590 
IF F$="ROSSO" THEN !-2;GOTO 390 
IF F$~"ORO" THEN T=5sG0T0 390 
II- F$="ARGENTO” THEN T= 10: GOTO 590 
T--20: F$= "NESSUN COLORE " 

CI s 

PRINT ”Co1 ori ; "; 

PRIMI Z$+D$ 

PRIMI Z$+E$ 

PRIMI Z*+F* 

PRINTSPRINTSPRINT 

PRIMI "Resistenza ~ ";R;" Ohm" 

PRINT "Tol1eranza = "*T;" %- 
LOCATE 0,20 

PFINT " Premi c per continuare" 

PRIMI ' Premi f per finire?" 

PLAY "DOREMI" 

N$=INKEY$ 

IF N*="" THEN 510 

IF N*="F" THEN CLS:END 

RUM 

REM 

RESTORE 


::ont i nuare" 






570 POR 1=0 TO 9 
580 READ C$ 

590 IF C*=A* THEN RETURN 

600 MEXT 

610 PLAY "DO" 

620 INPUT "Dammi :i. 1 col or e s " ; A$ 

630 GOTO 560 
640 REM 

650 DATA MERO,MARRONE,ROSSO,ARANOIO 
660 DATA GIALLO„VERDE,BLU,V1OLA 
670 DATA GRIGIO,BIANCO 
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MONITOR 





Monitor e' un programma di utility molto particolare, utilizzabile 
da coloro che, raggiunta la piena padronanza del linguaggio 
BASIC, desiderassero sperimentare routine in linguaggio mac¬ 
china sul PC 128. Il linguaggio macchina, infatti, permette di 
accedere direttamente alle potenzialità' della macchina, utiliz¬ 
zando il processore del computer con il suo proprio linguag¬ 
gio, senza passare per l'intermediazione dell’interprete BA¬ 
SIC. Questa programmazione "diretta" consente di ottenere 
prestazioni normalmente non disponibili, nonché' una velocita' 
di elaborazione decine di volte piu' veloce. Per programmare 
efficacemente, occorre pero' una completa conoscenza della 
struttura hardware del computer, oltre ad una documentazio¬ 
ne sulle routines contenute nelle memorie ROM del sistema 
operativo e dell'interprete BASIC. 

Benché' non risulti attualmente disponibile un programma EDI¬ 
TOR-ASSEMBLER, e' possibile fare esperimenti o lavorare su 
piccoli programmi LM battuti direttamente sotto forma di nume¬ 
ri, con il nostro semplice programma Monitor. 
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OOCOr- 


I comandi disponibili sono: 


C HHHH HHHH 

D HHHH HHHH 
P HHHH HHHH 

M HHHH 

HHHH 
Cursore sinistro 


- visualizza i valori compresi tra le 
due locazioni esadecimali specificate 
+ checksum 

- viisualizza i valori compresi tra le 
due locazioni esadecimali specificate 

- stampa i valori compresi tra le due 
locazioni esadecimali specificate + 
checksum 

- modifica o scrittura dati a partire dalla loca¬ 
zione specificata 

- IoaddiunfileBIN 

- save di un file BIN 

- jump alila locazione specificata 

- abbandono del programma 

- (in fase di modifica) decrementa 
la locazione visualizzata. 
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Commento alle linee del programma 

70-90 

Inizializzazione 

100-210 

Loop opzione 
470-750 

Routine principale opzione D 

760-810 

Routine load dati in memoria 

830-880 

Routine Save dati in memoria 

890-960 

Routine salto a programmi LM 
970-1070 

Lettura comando 

1090-1150 

Routine aggiunta zeri non significativi 

1170-1250 

Routine controllo input e generazione codice "EF" 
1260-1330 

Routine visualizzazione e stampa dati 
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ti * $ * % * t % * * * * * t * * % % % % % 

!i % * 

li + MONITOR % 

il % * 

il t % * * 11111 * * t * 11 $ t * 11 
!i 

REEN2 ,0,0s CLS s OPEN " 0 ” „ # 1. , " L PR I :: " 
li: NT "# PC 128 MONITOR 


ì: ri ho# i > 

>p 7 !\| ]• " $ " « 

..INE INPUT Gli* 

::o!fi=LEFT$ ( cm , i ) 

[ F COf= " C 11 THENPF=0 ; G0SUB230 : GOTO 100 
IF CO$ ="D"THEN PF=1 ;60SUB230sGOTO 100 
E F CQ$~"P"THEN PF=2:GOSUB 230 : GOTO10 


160 IF CO**"M"THEN GOSUB 470: GOTO 100 
170 IF COI;--"L"THEN GOSUB 760: GOTO 100 
180 IF r:0<fi="E!"THEN GOSUB 820: GOTO 100 
190 IF C0$—"6"THEN GOSUB 890:GOTO 100 
200 IF CO$="Q"THEN END 
230 GOTO 100 
220 7 


260 TP~2:G0SUB960 
270 H4 $=HE X &(A ì 
280 GOSUB1080 

3ÓÒ TD$^LEFT1> (H4f>„ 2) 

310 CS—CS-i-VAL < " ScH i! +TD« ) 

320 TD$=RIGHT*<H4$,2) 

330 CS—CS+VAL ( " Sii " +TD* ) 

340 IF PF=2 THEN PRINT# 1 144$; " " ; ELSE PR 
INT H4$;" "; 

350 C T=0 
360 DT--PEEK (A) 

370 CS=CS+DT 
380 DT$~HEX$ CDT) 

390 IF LEM (D'TT) = 1 THEN DT'*^ M '0" + DT$ 

400 IF PF“2THEN PRIMI'#! , DT#; " " ; ELSE PRI 
N "i " TXT# * " " * 

410"IF*A>=è THEN GOSUB1260 : RETURN 

4 2 O A -- A +1 : C T== C T + .1 

430 IF CT <MX THEN360 

440 GOSUB1260 

450 GOTO 270 

460 7 

4 70 7 

ARO 7 

490 TP=1 :GOSUB960 
500 H4$~HEX$ (AI- 
Sl O GOSUB 1080 
520 PRIMI H4$;" 

530 CT=0 
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540 DT$~MEX % <PEEK<A)) 

550 IF LEM (DT$) -1THEN DT*="0 ,, +DT$ 

560 PRINIDI*;"."; 

570 FOR GT=0T0:! 

580 ND$ •! Gl) = INPUT* ( 1 > 

590 CKf~ND*(GT)5 GOSUB1160 
600 IF EF=0THEN670 
610 IF EF =1THEN580 

620 IF EF=3THEMPRINT"<"sA=A-1 :G0T0500 
630 IF EF-4THEMPRINT: RETURN 
640 IF GT= 1THENPRI NTCHRT ( &H8 > ; 

650 PRIMI DT$; 

660 GUI0/OO 
670 PRINTMDi(GT); 

680 NEX FGT 

690 POME A, VAL (8<H" +ND$ ( 0 ) +ND$ < 1 > ) 

700 PRIMI" "; 

710 A=A+1:CT=CT+1 
720 IF CK4THEN540 
730 PRIMT 
740 BOI0500 
750 7 



780 INPUT"FILEMAME";FI$ 
790 LOADM "CASS:"+FI* 

800 RETURN 
810 7 
820 7 
830 

840 IP~3:G0SUB960 

850 INPUT "FILEMAME";FI$ 

860 SAVEM"CAB:"+FI $, A,B,C 

870 RETURN 

880 7 

890 7 

900 7 

910 TP=1:GOSUB960 
920 DEF IJSR=A 
930 DM-USR(O) 

940 RETURN 
950 7 
960 7 
970 7 

980 A$=MI m <CM$,3,4) 

990 A—VAL < "I:H" +AT) 

1000 IF TP=1THEMRETURM 
1010 B*=M I D$ ( cm ,8,4 ) 

1020 B=VAL ( " 8<H " +B$ ) 

1030 IFIP=2 THE N R EIIJ R N 
1040 C$=M I D$ < CM$, 1 3.4 ) 
1050 C-VAL ( "S:H"h-C$) ' 

1060 RETURN 
1070 7 
1 080 ■’ 

1 090 7 





1 100 ora LEIM ( H4* ) GOTO 1 110, 1 120, 1 130. 11 40 
1110 H4$ ="000"+H4$: RETURN' 

.1. 120 H4$“ " 00 " +H4* : RETURN 
1130 H4$ —"0"+H4$ : RETURN 
1140 RETURN 
1.1 50 7 
1. 1 60 
:!. 1 ? 0 7 

1130 CK=ASC<CK$) 

1.190 EF~ 1 

.1 200 J F ( CK >=8<H30 AND CK< *&H39 ) OR ( CE >««<H4 

1 AND CI«=S<H46) THEN EF=0 

1210 IF CK=8:HD THEN EF=2 

1220 IF CK“&H8 THEN EF=3 

1230 IF CK=?<H1B THEN EF=4 

1240 RETURN 

1250 • 

1260 •’ 

1270 

1230 CS*=RIGHT$(HEX*(CS>,2) 

1290 IF LEN (CS$ ) -1 THEN CS*= M 0"+CS* 

1300 ON PF GOTO 1320,1330 
1310 PRINT"s"sCS*: RETURN 
1320 PRINT:RETURN 
1330 PRINT#1,":";CS$: RETURN 
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CODIFICA 

CRITTOGRAFICA 


Non sempre si desidera che i dati trasmessi e registrati dal 
computer siano facilmente accessibili a tutti. In ambito profes¬ 
sionale, sono tantissimi i casi in cui e' necessario proteggere 
testi e dati con particolari chiavi di codice, in modo tale che, in 
seguito, solo chi conosce il codice possa utilizzare le informa¬ 
zioni. 

Il programma "codifica crittografica", permette di crittografare 
una frase o un insieme di caratteri alfanumerici (massimo 255 
caratteri) con una chiave scelta, costituita da una parola (es. il 
vostro nome), da una frase, ecc. Inizialmente il programma vi 
domanda la parola chiave da utilizzare per il processo di codi¬ 
fica o decodifica, successivamente un menu consente la scelta 
tra due differenti opzioni. La prima opzione, serve per introdur¬ 
re il testo da codificare battendolo su tastiera, mentre la se¬ 
conda, serve per decodificare un messaggio precedentemente 
registrato come file sequenziale su cassetta. 

Utilizzando l'opzione di battitura da tastiera, terminato l'inseri¬ 
mento con il tasto <ENT>, apparirà' sullo schermo la frase codi¬ 
ficata che potrete salvare su nastro. E' chiaro che solo dispo¬ 
nendo della giusta parola chiave potrete rileggere correttamen¬ 
te i dati, ogni altro tentativo produrrà' una sequenza 
incomprensibile di caratteri. 
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Commento alle linee del programma 

120-130 

input della parola o frase-chiave 

140-190 

preparazione della maschera di codifica 
210-270 
menu principale 
280-320 

immissione testo 

340-390 

visualizza codifica 

400-440 

richiesta opzione registrazione o restart 

450-610 

caricamento da nastro e decodifica 

630-690 

scrittura su nastro del file crittografato 

700-750 

subroutine di decodifica 
■!§ 760-820 

subroutine di codifica 

830-920 

subroutine di attesa 

930-1020 

subroutine di fine caricamento 
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10 REM ##****#*##*#*#******#**##* 

20 REM * * 

30 REM * CODIFICA CRITTOGRAFICA * 

40 REM * * 

5 0 R E M * * * * * * * * * * ****** * * * * ****** 

ò O P*' p J v j 

70 REM 

SO SCREEN 7,4,4 
90 CLS 

.! 00 CLEAR 2000 
110 LOCATE 2,10 

120 INPUT "Dammi la parola chiave ";BT 
130 IF B*="" THEN 110 
140 Cf="" 

150 LU—LEN (ET) 

160 l<= INT (255/LtJ) 

170 FOR IX-1 TO K 
130 C$=C$+B$ 

190 NEX T 
200 CLS 

210 LOCATE 2,4 

220 FRI NT " 1. Introduci -frase da tasti er 
a " 

230 LOCATE 2,6 

240 FRINÌ "2. Caricamento da reqistrator 
e" 

250 LOCATE 2,10 

260 INPUT "Quale scegli ";N 

270 IF N=2 THEN 450 

2S0 CLS 

290 LOCATE 2,8 

300 INPUT "Dammi lai frase da crittogra-fa 

re " ;AT 

310 IF AT-"” THEN 300 

320 GOSUB 760 

330 PRINISPRINT 

340 PRINT "Frase codificata 2 " 

350 PRINT:PRINT A$ 

360 LOCATE 13,20 

370 PRINT "Premi un tasto" 

380 Q$~INKEYf 

390 IF QT="" THEN 380 

400 CLS 

410 LOCATE 2,9 

420 INPUT "Vuoi, salvare su nastro S/N 
ET 

430 IF E$="s" OR E$="8" THEN GOSUB 630 

440 RUN 

450 REM 

460 REM 

470 GOSUB 830 

430 LOCATE 2,10 

490 PRINT "CARICAMENTO IN CORSO" 

500 PRINT:PRINT:PRINT 
510 OPEN "I",#1,"CASS:" 

520 INPUT #1, AT 
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530 CLOSE 
540 GOSUB 700 
550 GOSUB 930 
560 CLS 

570 LOCATE O,10 
580 PRIMI A$ 

590 LOCATE 13,20 

600 FRINT "Prèmi un tasto" 

610 IF INKE Yt*="" THEN 610 

620 RUN 

630 REM 

640 GOSUB 830 

650 OPEN "0 " , #1,"CASS:CRIITO" 

660 PRINT #1, A$ 

670 CLOSE 
680 GOSUB 930 
690 RUN 
700 REM 
710 L=LEN<A$) 

720 POR I 1 TO !.. 

730 MIDt> < A$ ,17., 1 ) =CHR$ ( ASC <MID* ( A$ ,17., 1 ) 
>-ASC<MID*(C*, 17., 1) ) > 

740 NEXT 
750 RETURN 
760 REM 
770 REM 
780 L»LEN<A*> 

790 POR I7.= l TO L 

800 MI D$ • A$ ,17., 1 ) =CHR$ < ASC ( MI Dt> ( At, I %, 1 ) 
) + ASC '< MID* < Ct., I 7., 1 ) ) ) 

810 NEXT 
820 RETURN 
830 REM 
840 REM 
850 CLS 

860 LOCATE 9,10 

870 PRINT "PREPARA IL REGISTRATORE" 

880 LOCATE 12,12 

890 PRINT "E PREMI UN TASTO" 

900 IF INKEY$="" THEN 900 

910 CLS 

920 RETURN 

930 REM 

940 REM 

950 CLS 

960 LOCATE 10,10 

970 PRINT "CARICAMENTO EFFETTUATO" 

980 PLAY "DOREMI" 

990 LOCATE 13,20 

1000 PRINT "Premi un tasto" 

1010 IF INKEYtì-" " THEN 1010 
1020 RETURN 
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Il computer, nelle applicazioni di gestione su dati organizzati, 
esprime nel modo piu' lampante le potenzialità' delle funzioni 
di ricerca di dati. Nel programma, un piccolo data-base, conte¬ 
nente nome e caratteristiche salienti di alcuni animali rende 
possibile, malgrado la limitatezza dei dati disponibili un inte¬ 
ressante gioco-esempio. 

Il programma permette al computer di indovinare il nome di un 
animale in base ad alcune caratteristiche da voi fornite, oppu¬ 
re il gioco inverso, in cui sarete voi ad indovinare l'animale 
"pensato" dal computer. Il data-base di esempio, memorizzato 
nelle linee data numerate da 1000 in poi, contiene i record 
per ogni animale; l'ordine di memorizzazione e' il seguente: 
nome animale, famiglia, carattere, dimensioni, modo di cammi¬ 
nare, domesticità', caratteristiche salienti, utilità' per l'uomo, 
modo di cibarsi, habitat, prestazioni. 

Il numero presente nella posizione relativa a ciascuna caratte¬ 
ristica si riferisce all'elenco sito nelle linee comprese tra 890 e 
980; in queste linee data sono elencate le alternative possibili 
per ciascuna posizione. Volendo espandere i dati disponibili, 
e' sufficiente inserire dalla linea 1070 in poi, linee data aggiun¬ 
tive nel formato prescritto, aggiornando il dato contenuto alla 
linea 990, con il numero totale degli "animali" presenti. 
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Commento alle linee del programma 

60-70 

inizializzazione casuale di RND 

80 

lettura numero caratteristiche 

90 

lettura numero record presenti 

100-140 

caricamento in AN$() e CA() 
150-160 

selezione menu 

170-480 

gestione I opzione 

480-740 

gestione II opzione 

770-860 

subroutine menu dei record 

870-990 

dati caratteristiche 
990-1060 
dati record 
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10 REM # # * * sic Tc * * 11 * * % sic sic sic ;i< 

20 REM sK SU 

30 REM *: ANIMALI * 

40 REM % * 

50 R E M sé t si< % % % % % t % % % % % % % % 

60 CLS :: FRI NT "PREMI UN TASTO" 

70 IF INKEY$~"" THEN A-RND(1>: GOTO 70 
80 NESTORE 870:READ OC 
90 RESTORE 990:READ QA 
.1.00 DIM A NT ( QA ) , CA < QA, QC ) 

110 FOR J=1 TO QA:READ ANT(J) 

120 FOR K=1 TO QC 
130 READ CA(J,K> 

140 NEXT K,J 

150 RES I"ORE 760s GOSUB 770: REM SUB/MENU 

160 RI=NRsCLS:ON RI GOTO 170,490 

170 CT$= '* " : AE= 1 +1 NT ( RND < 1 ) *QA ) : NT=0 

180 NT=NT+ .1 

190 RESTORE 890:CLS 

200 FOR J=1 TO QC 

210 READ CAT : PRI NT J ; " " ; CAf» 

220 READ N 

230 FOR K=1 TO N: READ AT: NEXT K 
240 IMEXT J 
250 LOCATE1,22 

260 INPUT "QUALE CARATTERISTICA VUOI CON 
OSCERE";CC 

270 IF CC< 1 OR COQC THEN 260 

280 CLS:RESTORE 890 

290 FOR J = 1 TO CC: READ CAT,N 

300 FOR K=1 TO Ns READ CNT 

310 IF J=CC AND K=CA(AE,CC) THEN 340 

320 NEXT K 

330 NEXT J 

340 CLS:PRINT CAT;" ";CN*s" <";CTT;")" 

350 IF LEN(CTT)+LÈN(CNT)>70 THEN 4l0 
360 CTT"CTT+","+CNT 

370 INPUT"SAI' DIRE QUALE ANIMALE E r ;APT 
380 IF APT=ANT(AE) THEN 450 
390 IF AF'HK >AN$ <AE> THEN NT-NT +1 
400 IF NT<QC THEN 190 

410 CLS :PRI NT "PECCATO, NON HAI PILP TENT¬ 
ATI VI DA FARE" 

420 PR I NT "TI DIRO ’ CHE SI TRATTA DELL.. p AN 
IMALE":PRINT AN$<AE> 

430 F'F: I NT : PR I NT "PUOI SEMPRE RIPROVARE" 
440 FOR J=1 TO 2000:NEXT:GOTO 150 
450 CLS:PRINT"BRAVO: HAI INDOVINATO" 

460 PRINT"SI TRATTAVA PROPRIO DELL’ANIMA 
L.E " ; AN$ < AE) 

470 PRINT"IL TUO PUNTEGGIO E'";INT((QC-N 
T) )K10/ (QC-1) ) 

480 FOR J=1 TO 2000:NEXT:GOTO 150 
490 RESTORE 890:CLS:FORJ=1 TO QC 
500 READ CA*,NPSPRINT CA$ 

510 FOR K=1 TO NP 

520 READ DAT : PR I NT l<; " " ; CAT> 





530 NEXI K 

540 INPUT "DAMMI 

E"sNC(J) 

550 IF NCfJXl G 
560 POR K=1 TO G 
570 FGR K—1 TO G 
580 IF AS(K>=0 T 
590 FGR H=1 TO G 
600 IF H>J THEN 


IL NUMERO CORRISPONDENT 


OR NC(J 
QA:AS < K 
QA 

THEN630 

OC 

620 


<J)>NP THEN 
( K> —1 : NE X T 


610 IF NC■H)< >CA(K,H) THEN AS<K>=0: GOTO 
630 

620 NEXI H 
630 NEXT K 
640 FG=U 

650 FOR K=1 TO QA 
660 FG=FG+A3 <K> 

670 IF AB (K) “ 1 THEN NV==I< 

680 NEXT K 

690 IF FG=1 THEN PRINT"L’ANIMALE CHE HAI 
PENSATO NON PUÒ” ESSERE ALTRO CHE "sA 
m (NO): GOTO 740 
700 IF FG-0 THEN GOTO 730 
710 PRI NT "ESI STONO " ; FG ; " POSSIBILITA ' 1 " 
sPRINT"SERVONO MAGOIÓR I ' DETTAGLI.":FOR K 
=1 TO IOOOsNEXTKsCLS 
720 NEXT J 

730 FRINT"NESSUN ANIMALE FRA QUELLI CHE 
IO CONOSCO CORRISPONDE ALLE CARATTER 

ISTICHE CHE MI HAI FORNITO" 

740 FOR W=1 TO 2000sNEXT WzGOTO 150 
750 0 

760 DATA 2, "TU INDOVINI L’ANIMALE CHE F'E 
NSO IO","IO INDOVINO L’ANIMALE CHE PENSI 
TU","per scegliere: " 

770 REM SUBRQUTINE MENU’ 

780 CLS 

790 READ NA 

800 FOR J=1 TO NA 

810 READ PREPRINT J ;FR$ 

820 NEXT J: READ FR$ 

830 LOCATE 1,22 

840 PRINT FR*s" 1 —":NA; 

850 INPUT NR:IFNR<1 OR NR>NA THEN GOTO 8 
50 

860 RETURN 
870 DATA 10 
880 REM 

890 DATA FAMIGLIA,7,MAMMIFERI,UCCELLI,RE 
TTILI,ANFIBI,PESCI,INSETTI,ALTRO 
900 DATA CARÀTTERE, 5, GI QCHÈREL..LONE, MI TE, 
TIMIDO,PERICOLOSO,FEROCE 

910 DATA DIMENSIONI,5,PICCOLISSIMO,PICCO 

LO,MEDI0,GRANDE,GRANDISSIMO 

920 DATA'COME CÀMMINA,10,NUOTA,STEISCIA, 

BIPEDE,QUADRUPEDE,VOLA,ESAPODO,VOLA E NU 

OTA, CAMMINA E NUOTA,OCTOPODO,MOLTE 2AMP 

E 
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930 DATA DOME3TICITA 7 ,3,3.1, NO, ADDOMESTIC 
ABILE 

940 DATA CARA’’TEE ISTIGA FISICA SALIENTE, 
9, NESSUNA, NASO LUNGO, COLLO LUNGO, GAMBE L. 
LINONE, CODA LUNGA, CORNA „ PELI. I OC IA ' FOLTA, V 
ELENOSO,LINGUA PRENSILE 

950 DATA UTILITÀ 7 PER UOMO,5,NESSUNA,POC 
A,COMMESTIBILE,MOLTO UTI LE,DANNOSO 
960 DATA SI CIBA PREVALENTEMENTE DI,6,CA 
RNE, VEGETAI. I, AVANZ I, OMNIVOBO, CIBO ACQÙAT 
ICO,INSETTI 

970'DATA VIVE SOPRATTUTTO,2,DI GIORNO,DI 
NOTTE 

980 DATA PRESTAZIONI NOTEVOLI,9,NESSUNA, 
VORACITA 7 , VE!..OCITA 7 , SALTI LUNGHI, FORZA, R 
ESISTENZA'ALLA FAME/SETE,OLFATTO'FINE,Vi 
STA ACUTA,VOCE 
990 DATA 7 

I000 DAPACANE,1,2,3,4,1,7,4,1,1,7 
1010 DATATRO!A,5,3,2,1,2,1,3,5,1,3 
1020 DAT ABALENA, 1,4,5, 1,2, 1,2,5, il., 1 
1030 DAT ACARPA, 1,3, 3, 4, 3. è, 4, 2, 2,4 
1040 DATARANA,4,3,2,8,2,S,3,5,2,4 
1050 DATAELEFANTE,1,2,5,4,3,2,2,2,1,5 
1060 DATAGALLINA,2,3,2,3,1,1,4,4,1,1 
1070 DATALE0NE1,2,3,4,5,è,7,S 
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QUIZ MASTER 


Il computer si presta a moltissime applicazioni in campo didatti¬ 
co, come supporto o gestione interattiva di test, quiz di ogni ge¬ 
nere. Utilizzare il computer per la gestione di domande, può' 
essere un nuovo modo per imparare o provare le proprie cono¬ 
scenze. 

"Quiz Master" e' un programma base che permette sia la crea¬ 
zione dei quiz, impostando la domanda principale e quattro ri¬ 
sposte, sia la generazione interattiva delle domande per l’uti¬ 
lizzo finale. Dopo il caricamento del programma si sceglie se 
generare i quiz oppure caricare file prodotti in precedenza. 
Con la prima opzione comincia la fase di input, in cui si crea¬ 
no, uno dopo l'altro i quiz; il ciclo prevede ben cento record. 
Qualora si desiderasse gestire una quantità' inferiore di do¬ 
mande, e' sufficiente sostituire il numero "100" alle linee 240, 
430, 550 e 650 con l'effettivo numero di quiz che si vogliono 
trattare. 
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Commento alle linee del programma 

70 

dimensionamento matrice domande, risposte, 
numero risposta corretta 

100-230 

loop di immissione quiz 

400-500 

lettura file sequenziale da nastro 
520-620 

salvataggio file sequenziale su nastro 

640-780 

gestione interattiva quiz 

790-830 

risposta finale e restart 
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10 REM * ii=: * # * * * * Se * * 3ÌC ». * * >K 5<c * * * * 

20 REM * * 

30 REM * QUIZ MASTER * 

40 REM * * 

50 REM »»*»-**»»»*»»»*»»»»»»*»» 

60 REM 

70 CLEAR 1000:SCREEN 7,4,4 

SO DIM A* ( 100 ) , B* ( 100, 4 > , A7. (100 ) 

90 CLS 

100 LOCATE 8,2:FRINT"GENERATORE DI QUIZ" 
110 FRINTSPRINTSPRINT"Desi deri s~ 

120 PRI NT : PRINT : F'R INT" 1 . Inser i re 1 e dom 
ande" 

130 PRINTsPRINT"2. Caricare dei quiz da 
nastro" 

140 PR I NT : PR INT " 3. Meritor i z z are i qui z su 
nastro" 

150 PRINT s PRINT"4. Rispondere ai quiz" 
160 PRINTsPRINT"5. Uscire" 

170 A*=INKEY$:IF AU>="5" THEN CLS: PRI NT "C 
I A 0 ! !": END 

ISO IF A«="l" THEN GOTO 230 
190 IF A$="2" THEN GOTO 400 
200 IF A$="3" THEN GOTO 520 
2.1.0 IF A*="4" THEN GOTO 640 
220 GOTO 170 
230 CLS 

240 FOR X=1 TO 100 

250 PRINT"Quale e" la domanda numero ";X 
260 PRINT: INPUT A$ < X) 

270 FOR Y=1 TO 4 

280 PRI NT "Qual 7 e : ' la possibile risposta 
num.";Y 

290 INPUT B*<X,Y> 

300 NEXT Y 

310 A7.(X)=0sAA*="" 

320 LOCATE 0,17:PRINT"Quale e"corretta < 
1-4 >"; 

330 INPUT A*/, (X) 

340 IF A7. (XXI OR A7.<X> >4 THEN 320 
350 LOCATE 1,20:PRINT"CONFERMI <S/N> 

360 INPUT AA$: IF AA$="S" OR AA$="s" THEN 
CLS:NEXT X : GOTO 390 

370 IF AA*="n" OR AA$="N" THEN CLS:GOTO 
250 

380 GOTO 350 
390 GOTO 100 

400 CLS:PRINT"Inserisci il nastro con il 
■file dati nel reqi stratore e premi il t 
asto PLAY" 

410 OPEN "I",#1,"CASS:" 

420 PRINT"Lett.ura del file dati" 

430 FOR X~1 TO 100 
440 INPUT #1,A*»<X) 

450 FOR Y=1 TO 4 
460 INPUT #1,B$(X , Y) 
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.cl 7 O 

NE X T Y 

480 

IIMPUT # 1 

490 

NEXT X 

500 

CLOSE 

510 

co ro ioo 

570 

CLS : PR IM' 

! J f 

i 1 e d. 

i 

t a st 

530 

OPEN "0" 

540 

PRINT"Sa 

550 

POR X=1 ' 

560 

PRINT #3. 

570 

POR y==:l ' 

580 

PRINT #1 

590 

NEXT V 

600 

PRINT #1 

610 

NEXT X 

620 

CLOSE 

630 

GOTO 100 

640 

CLS 

650 

POR X 1 


< X.) 


I J.user i :: 
a. ti nel r 
i PLAY ?< 

,#1,"CASS 
1vataqqi a 
TQ 105 
, A$ ( X ) 

TD 4 
, Bili < X , 

, A ”4 ( X > 


;ì ci la cassetta per 
•eoi stratore e premi 
RECORD" 


d at i 


Y ) 


>o 
670 
630 
69 < 


OOk 


II 


LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 


TO 
i o, i 
10 , 
1,5 
1,8 


1 1 

SPRINT "Domanda ’ 
;sPRINT"===~===== 
SPRINT AT < X ) 

:PRINT"Risp ost e 


posi 


i i b i 1 i 


3.0 


.>: PRINT" 3 . 
12 : PR I NT " .2. 
3.4 : PR I N T " 3, 
3.6: PRINT"4. 


: I NKE Vifi : IF AAT< " 1 " 


";BT<X,1> 

" ; B $ i X 2 > 

" • bt ■: x ; 3 ) 

":BT(X,4) 

ÒR AAT >"4" THE 


700 
7 i O 
~7?r> 

73Ò 

740 A Air 
N 740 

750 AA7.=VAL ( AAT ) 

760 IF A A 7.=A 7. < X > THEN S7.«S7.+ 3. : LOCATE 3., 20 
:PRINT"G I U S T 0 I!" ELSE LOCATE 1,20: 
PR I NT ” ERRATO. ERA " ; A7. ( X > 

770 LOCATE 3. , 23: PRINT "Premi la barra per 
continuare" 

780 A A T =INKEY $: IF AA$<>" " IHEN 780 
790 CLSsNEXT 

800 CL..S : PR I NT " 11 t uo punt eGq io e’ " ; S7. : 
810 L0CATE 1, 13: PRINT"Premi. la barra per 
continuare" 

820 A A T 1N K E Y T : IF AA$<>" " 

830 CLS:GOTO 100 


THEN GOTO 820 








ARCHIVIO 




L'applicazione classica, dove il personal computer, può' piena¬ 
mente esprimere le proprie capacita' e potenzialità' e', natural¬ 
mente, la gestione dati. In questo ambito, la capacita' di memo¬ 
ria, la velocita' di ricerca e la possibilità' di registrare dati su 
cassetta, rendono molto vantaggiosa la sostituzione di qualsia¬ 
si sistema di archiviazione tradizionale con quello versatile e 
veloce gestito da computer. Il programma "Archivio libri", che 
vi presentiamo risolve efficacemente i problemi di gestione di 
una piccola o media biblioteca privata, consentendo di registra¬ 
re ben 508 libri (anche oltre modificando la linea 80), specifi¬ 
cando per ciascuno i campi: titolo, autore, editore, data e codi¬ 
ce. L'intero archivio, gestito con questo programma, potrà' es¬ 
sere memorizzato come file sequenziale su di una comune 
cassetta audio, sostituendo vantaggiosamente l'equivalente 
schedario con indici per titoli, autori, editori ecc. La potente fun¬ 
zione di ricerca del programma, permette di cercare una qual¬ 
siasi sequenza di caratteri all'interno dei campi principali, ren¬ 
dendo immediata la ricerca dei libri di un autore o il cui titolo, 
contenga una certa parola, ecc. 

Il programma "Archivio", appena caricato, domanda se si desi¬ 
dera inserire i dati da tastiera (opzione da utilizzare la prima 
volta), oppure caricare i dati di archivio registrati in preceden¬ 
za. Dopo la fase di immissione si giunge al menu principale, 
comprendente le seguenti opzioni: ricerca di un libro, visione 
di tutti i libri registrati, modifica dei dati, memorizzazione (inseri¬ 
mento di un nuovo libro), cancellazione di un libro, registrazio¬ 
ne dei dati su nastro, stampa di tutto l'elenco. L'opzione di ri¬ 
cerca, permette la scelta tra i cinque campi: titolo, autore, edito¬ 
re, data e codice e l'immissione della parola, numero o se¬ 
quenza di caratteri, da cercare nel campo prescelto. 
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Commento alle linee del programma 

80 

dimensiona l'area riservata alle stringhe per 
contenere 508 record 

90-180 

visualizza la disponibilità' di record 
190-310 

menu iniziale 

320-640 

caricamento nuovo archivio 

670-880 

caricamento archivio da nastro 
920-1040 

menu principale 
1050-1110 
selezione 
1140-1410 

menu e routine di ricerca 

1420-1830 

subroutine di visualizzazione dati 
1850-2250 

opzione modifica 
2370-2430 

opzione cancellazione 

2460-2710 

registrazione dati su nastro 

2740-2820 

subroutine lettura variabili 

2850-2910 

subroutine conversione minuscolo-maiuscolo 

2940-3120 

subroutine elenco campi 
3140-3290 

opzione stampa 
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i o rem ****************** * 

20 REM * * 

30 REM * ARCHIVIO LIBRI * 

40 REM * * 

50 REM ******************* 

60 FL=0 

70 SCREEM1,7,7 
80 CLEAR 50000 
90 CLS 

100 KL== INT (ERE < " " ) /9S) 

110 DIM LH <KL) 

120 SH=" 

130 LOCATE 12,3 

140 FRINT "ARCHIVIO LIBRI" 

150 LOCATE 7,7 

160 PRINT "RÈCORD DISPONIBILI"KL 
170 LOCATE 4,20 

180 FRINT "Premi un tasto per continuare 

II 

190 PLAY "DORÈ" 

200 IF INKEYH="" THEN 200 
210 CLS 

L OCATF 8 8 

230 F'RI NT ~" 1 ’ CARICA NUOVI DATI" 

240 LOCATE 8,11 

250 FRINT "2. CARICA DATI DA NASTRO" 

260 LOCATE 4,20 

270 PRINT "PREMI IL NUMERO CORRISPONDENT 
E " 

280 PLAY "DOMI" 

290 YH= INKEYH: IF YH=" " THEN 290 

300 IF YH="2” THEN 660 ELSE GOTO 330 

310 END 

320 REM 

330 REM 

340 CLS 

350 LOCATE 7,3 

360 PRINT "CARICAMENTO NUOVI DATI" 

370 PRINTSPRINT 

380 INPUT "Quanti libri ";NL 

390 NL=INT(ABS(NL)) 

400 IF NL< =0 OR NL>KL THEN PLAY "DOREDO" 

: GOTO 370 

410 FOR 1=1 TO NL 

420 GOSUB 2920 

430 LOCATE 29,2 

440 PRINT " n ' " ; I 

450 LOCATE 12,Ss LINE INPUT TH 

460 IF TH="" THEN NL.= I--1: GOTO 900 

470 LOCATE 12,7:LINE INPUT AH 

480 LOCATE 12,9:LINE INPUT EH 

490 LOCATE 9,12;LINE INPUT DH 

500 LOCATE 24,14:LINE INPUT CH 

510 LOCATE 18, 16: LINE INPUT F'H 

520 LOCATE 9,19:LINE INPUT NH 

530 LH <I)=SH+SH+SH+SH+SH 

540 QH=TH+SH:GOSUB 2840: 




MID*(L$<I>,1,25>=Q$ 


550 

Q$=A$+S$:GtìSÙB 2840s 



MI D$ ( L$ ( I ) 26,25 ) =Q$ 


|“'l v ~“, » _} 

Q*=E*+S*: GOSUB 2840; 



MIDI; (L$ < I > , 51,25) =Q$ 


570 

Q$=D$+S$:GOSUB 2840: 



MI D$ (!....$ •: I > , 76,25) =0$ 


580 

Q$=C$+S$ : GOSUB 2840 : 



MID$(L$<I),86,10)=Q$ 


590 

Q $=F $ + S $ ; 8 tì tì LJ B 2 8 4 O c 



MID$ (L* ( I ) , 96,6) =Q$ 


600 

Q$==N$ +ST ; GOSUB 2840 : 



1-111)$ <L$ < I ) , 102) -=Q$ 


610 

IF FL=1 THÈN RETURN 


&20 

ME X T 


630 

PLAY "DORÈ" 


640 

GOTO 900 


650 

REM 


660 

REM 


6 70 

CLS 


680 

LOCATE 5,2 


690 

PEINT "CARICAMENTO DATI DA 

NASTRO" 

"700 

PRINT:PRINT:PRINT 


7 Ì 0 

FRINT " PREPARA IL NASTRO 

E PREMI U 

N TASTO" 


7 'P Q 

PRINT:PRINTs PRINT 


730 

BEEP:BEEP 


740 

IF INKEY$="" THEN 740 


750 

PRINT " CARICAMENTO 

IN CORSO" 

760 

PRINTSPRINTSPRINT 


770 

OPEN "I",#1,"CASS:" 


780 

INPUT #1,NL 


790 

POR I=1'IO NL 


800 

INPUT #1,L$(I) 


810 

NEXT 


820 

CLOSE 


830 

PLAY "DORÈ" 


840 

II 

PRINT " ..DATI CARICATI 

850 

CLOSE 


860 

LOCATE 4,20 


870 

II 

PRINT "PREMI UN TASTO PER 

CONTINUARE 

880 

IF INKEY$="" THEN 880 


890 

REM 


900 

REM 


9 1 0 

CLS 


920 

RESTORE 3300 


930 

LOCATE 14,0 


940 

PRINT "M È N U ? " 


950 

POR 1=4 TO 16 STEP 2 


960 

READ m 


970 

LOCATE 8,I 


980 

PRINT Wt 


990 

NEXT 


.1000 

• LOCATE 4,20 


1010 

II 

1 PRINT "Premi un tasto per 

scegl :i. ere 
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1 020 

WT=" " 


1030 

W$=INKEYT 


1040 

IF WT<"0" OR 

WI> "9" THEN 3.030 

1050 

TY"VAL. • NT > 


1 060 

IF TY=2 THEN 

GOTO 3.6 3.0 

3 070 

1F TY=3 THEN 

GOTO 3.840 

3 OSO 

IF TY=4 THEN 

GOTO 2260 

1090 

IF TY=5 THEN 

GOTO 2330 

1100 

IF !"Y=Ò THEN 

GOTO 2450 

3.1 3.0 

IF TY=7 THEN 

GOTO 3.1.40 

3. 120 

REM 


1 1 30 

REM 


1140 

CL..3 


3.150 

LOCATE 9,0 


1160 

FRINÌ "RiCERO 

A DI UN LIBRO" 

13.70 

PRINT:PRINT:P 

RI NT 

3.180 

FRINTSPRINT " 

3.. RICERCA DA TITOLO" 

3.19 C) 

FRINT SPRINT " 

2, RICERCA DA AUTORE" 

1200 

FRINT:FRINÌ " 

3, RICERCA DA EDITORE" 

S 2 1 O 

FRINÌ:FRINT " 

4.. RICERCA DA DATA" 

3.220 

FRINTSPRINT " 

5. RICERCA DA CODICE" 

1230 

FRINT SPRINT 


1240 

INPUT "DAMMI 

IL NUMERO (1/5) "; NO 

1250 

IF NOCI OR IMG 

i>5 THEN 3 3.30 

3 260 

PRINTs PRINT 


1270 

INPUT "DAMMI 

LA STRINGA ";U* 

1 280 

IF UT="" THEN 900 

1290 

QT=LJT 


3.300 

GOSI.JD 2840 


131.0 

IJT=QT 


3.320 

CLS 


1 330 

POR 1=1 IO NL 


1340 

GOSLJB 2730 


1350 

IF NG= 3. AND 

I IMS I R < TI, UT ) < >0 THEN 


GOSUB 3.420 


1360 

IF NO=2 AND 

I IMS IR ( AI, UT ) < >0 THEN 


GOSUB 3.420 


3.370 

IF NG=3 AND 

IIMSTR < ET, UT ) < >0 THEN 


GOSUB 3.420 


1380 

IF NG=4 AND 

I IMS TR < DI, UT > < >0 THEN 


GOSUB 1420 


1390 

IF NG=5 AND 

I IMSTR ( CT, UT > < >0 THEN 

' 

GOSLJB 1420 


1400 

ne: x t i 


3.4 10 

GOTO 900 


1420 

GOSUB 2920 


1430 

LOCATE 29,2 


3.440 

FRINÌ "rr " I 


1450 

LOCATE 3.2,5 


1460 

FRINÌ TI 


3.470 

LOCATE 12,7 


1480 

FRINÌ AI 


1490 

LOCATE 3.2,9 


1500 

FRINÌ ET 


1510 

LOCATE 9,3.2 


1 520 

PRIMI DI 
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1530 LOCATE 24,14 
1540 PRINT CT ' 

1550 LOCATE 18,16 
1560 PRINT PT 
1570 LOCATE 9,19 
1580 PRINT NT' 

1590 IF INKEYT="" THEN 1590 
1600 RETURN 
1610 REM 

1620 POR 1 = 1 TO NI... 

1630 GOSUB 2920 
1640 LOCATE 29,2 
1650 PRINT I q " / " ; NI... 

1660 GOSUB 2730 ' 

1670 LOCATE 12,5 
1680 PRINT TT 
1690 LOCATE 12,7 
1700 PRINT AT 
1710 LOCATE 12,9 
1720 PRINT E$ ' 

1730 LOCATE 9,12 
1740 PRINT DT 
1750 LOCATE 24,14 
1760 PRINT CT 
1770 LOCATE 18,16 
1780 PRINT PT ' 

1790 LOCATE 9,19 
1800 PRINT NT 

1810 IF INKEYT=" " THEN .1810 

1820 NEXT 

1830 GOTO 900 

1840 REM 

1850 CLS 

1860 PRI NT : PRI NT : PRI NT : F'R I NT 
1870 INPUT "DAMMI IL NUMERO DEL LIBRO DA 
MODIFICARE ";NH 
1880 PRINT:PRINT 
1890 IF NH< 1 OR NH>NI... THEN 900 
1900 GOSUB 2920 
1910 I=NH 
1920 LOCATE 29,2 
1930 PRINT "N’"; I 
1940 GOSUB 2730' 

1950 LOCATE 12,5 
1960 PRINT TT 
1970 LOCATE 12,7 
1980 PRINT AT 
1990 LOCATE 12,9 
2000 PRINT ET 
2010 LOCATE. 9,12 
2020 PRINT DT' 

2030 LOCATE 24,14 
2040 PRINT CT 
2050 LOCATE 18,16 
2060 PRINT PT 
2070 LOCATE 9,19 
2080 PRINT NT 


90 




2090 LOCATE 12,5sLINE 
2100 IF TT~"" THEN NL= 
2110 LOCATE 12,7:LIME 
2120 LOCATE 12,9:LINE 
2130 LOCATE 9,12:LINE 
2140 LOCATE 24,14:L 
2150 LOCATE 18,16:L 
2160 LOCATE 9,19:LI 
2170 LT(I>=ST+ST+ST 
21 SO QT=TT+ST : GOSIJB 
) =QT 

2190 QT-AT+ST:GOSUB 
b ) -QT 

2200 QT==ET+ST: GOSUB 
5) =QT 

221O QT=DT+ST:GOSUB 
5 ) =QT 

2220 QT=CT+ST:GOSUB 
0 ) =QT 

2230 QT=PT+ST:GOSUB 
) =--QT 

2240 QT=NT+ST:GOSUB 
=QT 

2250 GOTO 900 
2260 REM 
2270 REM 
2280 NL-NL+1 
2290 I=NL 
2300 FL~1 
2310 GOSUB 420 
2320 GOTO 900 
2330 REM 
2340 REM 
'?350 ri s 
2360 LOCATE 0,4 
2370 INPUT "CHE LIB 
NK 

2380 IF NK<1 OR NK> 
2390 NL=NL-1 
2400 FOR I=NK TO NL 
2410 LT<I>=LT<1+1> 
2420 NEXT 
2430 GOTO 900 
2440 REM 
2450 REM 


LOCATE 12,5sLINE INPUT TT 
IF 7T="" THEN NL — I -1 : GOTO 900 
LOCATE 12,7:LINE INPUT A* 
LOCATE 12,9:LINE INPUT ET 
LOCATE 9,12:LINE INPUT DT 
LOCATE 24,14:LINE INPUT CT 
LOCATE 18,16:LINE INPUT PT 
LOCATE 9,19:LINE INPUT NT 
LT(I)=ST+ST+ST+ST+ST 
QT-TT+ST:GOSUB 2840:MIDT(LT(I) 

QT--AT+ ST : GOSUB 2840 : MIDT ( LT ( I ) 


2)840 : MIDT ( L.T ( I ) 
2840:MIDT<LT(I) 
2840:MIDT<LT(I) 
2840:MIDT <LT(I> 


GOSUB 2840:MIDT <LT * I) 


76, 2 


102 ) 


GOTO 900 

REM 

REM 

NL-NL+l 
I =NL 
FL — 1 

GOSUB 420 
GOTO 900 
REM 
REM 

LOCATE 0,4 
INPUT "CHE 


LIBRO VUOI CANCELLARE 
NK>NL THEN 900 


2380 IF NK<1 OR NK>NL THEN 900 

2390 NL=NL-1 

2400 FOR I=NK TO NL 

2410 LT(I>=LT(1+1) 

2420 NEXT 

2430 GOTO 900 

2440 REM 

2450 REM 

2460 CLS 

2470 LOCATE 5,2 

2480 PRINT "CARICAMENTO DATI SU N 
2490 PRINT:PRINT:PRINT 
2500 PRINT " PREPARA IL NASTRO E 
UN TASTO" 

2510 PRINT:PRINT:PRINT 

2520 IF INKEYT-"" THEN 2520 

2530 PRINT " CARICAMENTO IN 

2540 PRINT:PRINT:PRINT 

2550 BEEP:BEEP 

2560 FOR G=1 TO 100 


SU NASTRO" 


PREMI 


CORSO" 
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2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 

i l 

2580 

2690 

E" 


NE XI 

OPEN " O " . # 1 " CASS : ARCHE IB " 

FRI NT # 1 ', NI... 

POR 1 = 1 I O NI... 

PRINT #1,L*(I> 

NE X T 
CLOSE 

POR 0=1 TO 200 
NE XI 0 
PLAY "DORÈ" 

PRTNT " DATI CARICATI 


LOCATE 4,20 

PRINT "PREMI UN TASTO PER CONTINUAR 


700 

IF INKE'v 

Iti:::-" 

ti 

THEN 

.,:i / 

7.10 

GOTO 90! 





770 

REM 





730 

REM 





740 

REM 





750 

T*=MID** 

Ufi < 

J ’i 

, 1,2 

5 ) 

760 

A*=MID* 

L* ( 

i > 

, 26, 

75} 

770 

E$~MID* 

l.. 4-i •: 

i > 

, 51, 

25) 

7 80 

D*=MID*<L_*! 

i ) 

,76, 

10 ) 

790 

C*=MID* 

lofi •: 

i ) 

, 86, 

10 ) 


2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 
2910 
2920 
2930 
7*940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3 1 00 


P*=M I DT> C 1.3i I > 96, 6 > 

N*=MID* (Ufi ( I ) i 102) 

RETURN 

END 

REM 

REM 

Q=LEN(QT) 

FOR R7,= l TO Q 

F)E*=MID$ (Q«, R*/., 1 ) 

IF REf>="a"'AND RE*<="2" THEN 

MI D* < Q*, R7., 1 ) =CHR* < ASC ( RE* ).32 > 

NEXT 

RETURN 

REM 

REM 

CI....S 

LOCATE 12,2 

PRI NT " ARCHIV10 L. IBRI " 

LOCATE 2,5 
PRINT "Tìtolo : " 

LOCATE 2,7 
PRINT "Autore : " 

LOCATE 2,9 
PRINT "Editore : " 

LOCATE 2,12 
PRINT "Anno : " 

LOCATE 2,14 

PRINT "Còdice collocazione s " 

LOCATE 2,16 

PRINT "Nùmero paqine 

LOCATE 2,19 

PRINT "Note 
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31 10 

BEEP 



• T; - .j 

RETURN 



3 5 30 

REM 



3.140 

REM ST 

AMPA 


3150 

REM 



3160 

OPEN"0",# 

I"L.PRT: 

II 

3I 70 

POR 1=1'T 

0' NI... 


3 1 tìO 

GOSSJD 2730 


3190 

PRIM I'#! , 

CHR$(IO) 


320Ò 

PRINT#1, 

"N" " ; I 


32 I 0 

pr i nt# i 

"Titolo 


3220 

FRINÌ"#! 

"Autore 

u 

3250 

PRINT#1n 

"Editure 

B 

3240 

PRIMI'#!, 

"Anno s 

II 

3 2'50. 

PRINT#t ; 

"Codi ce 

C 1 

32òO 

PRINT#1 , 

"Numero 

pa: 

3270 

PR INT# ! 

"Note : 

Il u 
n 

3280 

NEXT : CL.03E 


3290 

GOTO 900 



3300 

DA 1 A 1 » R 

ICERCA U 

M 

i 

TTI 

I L. IBRI3. 

MODIFIC 

A 

RI ZI 

A UN LIBRO 

i,5. CANOE!.. 

ARIC 

A DATI SU 

NASTRO,7 



" : A$ 

" ; E$ 

! D$ 

:d 1. ocaz i ori e 





ADVENTURE 

DRACULA 


Questo programma rappresenta un perfetto esempio dei piu' 
diffusi e forse appassionanti programmi per personal compu¬ 
ter. Negli adventure, l'azione, solitamente l'esplorazione di un 
luogo sconosciuto, si realizza tramite dialogo diretto tra compu¬ 
ter e giocatore. Quest'ultimo impostando frasi come «PREN¬ 
DO AGLIO», «ESAMINO TOMBA» ecc., agisce su di un im¬ 
maginario luogo oscuro, ricevendo di ritorno una frase con l’ef¬ 
fetto delle azioni intraprese. 

Con la semplice struttura del programma presentato, abbiamo 
già' a disposizione un gioco capace di impegnare per ore, pri¬ 
ma di giungere alla soluzione finale. Frasi spiritose, situazioni 
strane, rendono il gioco divertente e realistico. 

Il nostro adventure e' ambientato nel castello del conte Dracu- 
la, da cui dovrete uscire passando di stanza in stanza e supe¬ 
rando molteplici difficolta'. Per dialogare con il computer, do¬ 
vrete usare i verbi contenuti nel "vocabolario" (scendo, prendo, 
uso, salgo, esamino, ecc.) usati in prima persona singolare, e 
un oggetto tra quelli presenti nella "stanza" in cui vi trovate. 
Per esempio, nella situazione iniziale in cui sono presenti: un 
lampadario, una porta, un camino e una scala, potrete battere: 
«Apro Porta», «Salgo Scala» ecc. In caso la vostra do¬ 
manda non sia contemplata tra quelle possibili od errata, avre¬ 
te il messaggio «Lascia Stare...... 

Per spostarvi di stanza in stanza in una delle direzioni consen¬ 
tite, premere il tasto '0' e poi battere la direzione, es: Nord, 
Sud ecc. Comandi aggiuntivi dell'adventure sono: "inventario", 
che elenca gli oggetti presi e "vocabolario", che elenca i verbi 
utilizzati. 

Questo programma può' essere personalizzato; infatti e' 
possibile inserire il vostro nome al posto della scritta "vostro no¬ 
me" presente alla linea 70 del listato. Potrete inoltre controllare 
l'immissione di parolacce, inserendo alla linea 1740 le dieci 
espressioni piu' diffuse, permettendone cosi' il riconoscimento 
da parte del computer e la generazione di una adeguata rispo¬ 
sta.... 
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Commento alle linee del programma 


10-110 

INPUT del nome del giocatore 
130-150 

situazione nel "salone del castello" 

270 

controllo dell'inserimento direzione 


290-330 

serie di risposte alle domande 

340 

risposta ad ENTRO CAMINO e salto al "passag¬ 
gio segreto" 

350-430 

serie di risposte alle domande 

440-660 

situazione: passaggio segreto 1 

670-900 

situazione: passaggio segreto 2 

910-1160 

disegno mappa del castello 
1170-1420 
vocabolario 
1400-1650 
inventario 
1660 

procedura di input 

1740 

lista di parole riconosciute come parolacce 

1750 

risposta alle parolacce 
1760-1780 

risposta ai falsi verbi 

1810-1940 

caricamento di verbi e oggetti nelle variabili 
1950-2070 

routine di gioco perso 
2080-2100 

INPUT direzione 
2120-2340 

situazione nel "corridoio del castello" 

2350-2650 
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5 RE M $ $ * * * * * * ****** %%*:* * * * * * 

10 REM 

20 REM ADVENTURE DRACULA 
30 REM 
40 REM 

50 SCREEN 7,4,4;CLS;LDCATE2,8: INPUT"DIMM 
I IL NOME";CO* 

60 IFCV$~ " "THENPRINT"SìOL.0 ULISSE SI FACE 
VA CHIAMARE ’NESSUNO 7 "; PLAY"DODODODO";GO 
IO 50 

70 IFCV*="VOSTRO NOME"THENPRINTsPRINT" 

Si vede che hai la etoff a del 
vi rie i tare nato . . . " : B0TQ1 .1.0 
80 PRINTs PRINTTAB(5);CV$;" ? ... e con q 
uesto nome" 

90 FRINT" cosi’ ridicolo tu vorresti 
anche risolvere questo ADVENTURE ^ 

i00 FRINTSPRINT” NON CI RIUSCIRAI M 

AI ! ! ! ! 

110 IFINKEY$=""THEN110 
120 CLS 

130 G0SUB3740:LA=0;P0=0;CA=0;SC=0 
140 SCREEN 7,1,1 

150 CLS:LOCATES,0;PRINT"SALONE DEL CASTE 
LL'O" SPRINT 
160 GOStJ B16 4 0 
170 ’ 

1 SO 7 ** ****** * * * ******** * * * * * * * * * * * * 

i 90 7 # * 

200 7 * SALONE DEL CASTELLO * 

210 7 * * 

220 7 ########*######*#########*##*#* 

230 ? 

240 PRINT" Ti trovi nel salone del caste 
Ilo del conte Dracula vedi uno squaliid 
o LAMPADARIO, una .losca PORTA, un vecchio 

CAMINO e una SCALA di legno. ":PRI 

N T;PR1NT" Direzionis Nor d" 

250 GOSIJB1650 ; GOSUB1880 s 

260 GOSUB1730 

270 I FR*s= " 0 " THEN2080 

280 IFR*=V8*+" " + "CHIAVE"ANDUC»1THENZ X™1 
:GOSUB1800s PRINT" C 7 e 7 del 1 7 AGLIO qui den 

tro." : GOSUB 1650; G0T0260 

290 I FR$=V9$+ " " + " AGL 10 " AND Z X = 1THENAG--1 ; 
0G--0G+1 ; GOSUB 1800 : PR I NT " 0. k . . . " s GOSUB 16 
50: GOTO260 

300 IFR*=VO*THENGOSUB1240; GOTO140 
310 IFR$=OG$THENGOSUB1500: GOTO140 
320 IFR$=V5$+" "+02$ANDCH=0THENG0SUB1800 
:CLS:L0CATE4,10:PRINT"Uno scheletro ti d 
a 1 a manoPR I NT : PR I NT " 

CIAO": PLAY"DODODODOREDO";GDT02020 
330 IFR*=V6$+" "+01*ANDLA=OTHENGOSUB1800 
;PRIN1" Non c 7 e 7 nul1 a..- solo ragnatele!! 

!":GOSUB1800:GOSUB1650:G0T0260 
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340 IFR$»V4$+” "+03$THENG0SUB1800;PRINT" 
I n c r e dibile... c e ’ u n a p o r t a s e q r e t a ! " s F 
0RP=1T0500: NEXTPsG0T0510 

350 IFR*=V5$+" "+02$ANDCH=1THENUC-i:GOSU 
B1800 :PRINT"Ser v e 1 a c: h i a v e...presto! ! ! ! 
" s GOSUB1650: G0T0260 

360 I FR$=V7$+ " " +04$ ANDSA=OTHENGOSUB 1800 
: FRINÌ " Sei sulla torre, vedi del SANGUE, 
la SCALA e una LANTERNA":GOSUB1650:GO 
SUBÌ 730:G0T0390 

370 GOSUB1800:PRINT" LASCIA STARE__ 

GOSUB1650:G0T0260 
330 GOT 0390 
3<?<"? •’ 

400 IFR$=V6$+" "+06TTHENG0SUB1800:PRINT" 
Cosa c:i devi fare... le trasfusioni ! ! ":G 
□SUB1650:GOSUB1730:GOT0390 
410 I FR$=V9$ + " " +05$THENF-~ 1 : OG=OG+1 : GOSU 
B1800:PRINT" OKGOSUB1650:GOSUB1730 
:G0TQ390 

420 IFR$=M1$+" "+04$THENGOSUB1800:PRINT" 
Ri torni al sai one. ..." : FORP--.1.T0500: NEXT 
P:GOTO140 

430 GOSUB1800SPRINT" LASCIA STARE."s 

GOSUB1650:GOSUB1730:60T0S90 
440 ’ 

450 % % % * ##**###### % % %%%% % % % % % % % % % % % % 
460 J # * 

470 ’ % PASSAGGIO SEGRETO (1) % 

480 ? % % 

490 ■" «(iKJlf*#*******»**## % % % % % * * * * * * * # * * 
500 ' 

510 FORP=1T0300:NEXTP 

520 CLS: COLOR 1,7:L0CATE5,10:PR1 NT"VEDIAM 

0 DOVE TI POR I A_» :FORP=1TO1500 s NEXTP 

530 VV=0 : VM=0 : FD=0 :: COLOR 15,1: CLS : LOCATE 
14,0:PRINT"CIMITERO":PRINT 
540 GOSUB1640:PRINT"Sei uscito dal caste 
11o,ti trovi nel 1uqubre CIMITER0, noti 
una strana TOMBA,un'TESCHIO e il PASSAG 
G IO segreto. " : PRINT s PR INT "Di rez i orii : Ness 
una":GOSUB1650 
550 GOSUB1730 

560 IFR$=V5$+" "+"TOMBA"ANDPI-OTHENGOSUB 

1300:PRINT"C ? e’un Vampirò voq1ioso di sa 

nque...":GOSUB1650:G0T02020 

570 IFR$=VO$THENGOSUB1240 

580 IER$=OG$THENGOSUB1500 

590 IFR$=V5$+" " + "TOMBA"ANDPI = 1THENVV-1 : 

GOSUB 1800: PRINT"C 7 e =■ un VAMPIRO che ripos 

a, f a 11 o -f uor i » . . ( Spar aqli)": GOSUB J 650: 

GOTO550 

600 IFR$="USO"+" "+"PISTOLA"ANBVV=1THENV 
M== 1 : GOSLJEì 1800: PRINT"Roveri no, q 1 i e'schiz 
zato lo stomaco.GOSUB1650:G0T0550 
610 IFR$=V6$+" "+"VAMPIRO"ANDVM=1THENFD= 
1 : GOSUB 1800: FRI NT "Orai che e’ morto non co 
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rri pericoli... il suo mantello cela un 
FISSATORE per dentiere":GOSUB1050sG0T055 
0 

620 IFR$—V9$+" "+"FISSATORE"ANDFD=1THENF 
1*1: 0 G— 0 G+ 3. : GOSUB 1 300 : PRI NT " 0. K. . . " : GOS 
UBI650:6010550 

630 IFR*=V 6 *+" "+"CIMITERO"THENGOSUB1800 
:PRINT"Perche 7 ? vuoi forse cambiare resi 
denza?";GOSUB1650:G0T0550 
640 IFR$=V 6 *+" " + "TESCH10"THENGOSUB3.300: 
P RI NT " E - 7 u n t e s c hi io p a r 1 a n t. e, t i r i v e 1 a c 
he nella stanza delle armi'e'nascosta 1 
a mappa del castello,per trovarla devi 

pero ‘ spostare? qual cosa." : G0SUE-: 3.650:: G 

070550 

650 IFR$=V4$+" "+"PASSAGGI0"THENGOTO140 
660 GOSUB3.800: PRINT" LASCIA STARE130 
SUB1650:GQT0550 
670 7 

630 7 * % %%%%%%%%%%%%%%%%%%%%%% * % * *% * % 

690 7 * * 

700 7 * PASSAGGIO SEGRETO <2) * 

710 7 * * 

720 7 * * # # t * * % % % % % % % % % %■% % % % % % % % % % # * $ * 

730 •- 

740 C0=0:B0=0:0S=0: PLAY"LASIDOREMI": SOR 

EEN 0,12,12 

750 CLS:L0CATE7,0:PRINT"STANZA DELLE TOR 
TURE"SPRINT 
760 GOSUB1640 

77O PRINT"Sei finito nella stansa dell e 
torture un luogo segreto, da dove nessun 
uomo e 7 mai riuscito ad usci re,noti un 
TORCHIO, una CATENA,, il BUCO, ed uno SCHELE 

TRO.":PRINT:PRINT"Direzionis Nessuna" 

730 GOSUB1650 
790 GOSUB1730 

300 IFR*=V0$THENG0SUB1240;G0T0740 
310 I FR*=0G*THENG0SIJB 1500 : G0T0740 
320 IFR*=V 6 *+" "+"TORCHI0"THENGOSUB1300: 
PRINT"Di particolare c : 7 e 7 solo del sangue 
...":GOSUB1650:G0T0790 

330 IFR**V9*+" " + "CATENA"THENBO*1 :GOSUB1 
300:PRINT"Hai azionato qualcosa,si e 7 ape 
rta una BOTOLA!!!":GOSUB1650:G0T0790 
340 IFR*=V 6 *+" "+"SCHELETRO"THENGOSUB1SO 
0:PRINT"Da questa posizione sembra non a 
vere nul1 a di parti col are...." :GOSUB165 
0:G0TO790 

350 IFR*=V4*+" "+"BOTOLA"ANDBO*1THENCO*1 
:GOSUB1800:PRINT"C 7 e 7 un a CORDA":GOSUB165 
0: GOTO/ 7 90 

860 IFR*=V9*+" " + "CORDA"ANDCO-1THENXC*1 : 
0G=0G+1 :GOSUB1800:PRINT" 0.K..." :GOSUB16 
50: GOTO790 

870 IFR*=V3*+" " + "SCHELETRO"THENOS*1 :GOS 
UBI800:PRINT" Sotto quelle quattro ossa 







c’e’ un FOGLIETTO! ! ! !'” s G03UB1650: G0T0790 
SSO 3: FR'f — " LEGGO " + " " +PO GL I ETTO " AND05= :l T 
HENGQSUB1800: PRINT"Di ce che :il Conte Ora 
cui a, che tu cerchi di speratamente ,si t 
rova'ai di la della griglia, nelle' segr¬ 
ete " s GOSUB1650 ! GOTO790 ' 

890 I FR$=V4$+ " " + " BUCO " THEM24.1.0 
900 GOSUB 1800 5 PR I NT " L..ASC IA STARE " ; GOSUB 
1 650 G0T0790 
910 ■' 

920 7 * * * % Hi * % % % % % % % % % % % % % % % % % % % % % % * * * 

930 •- * % 

940 % PIANTA CASTELLO * 

950 ’ % # 

960 •’ % % % % % He % % % % :K % % % % % % % % % % * H< # 1*: % % % % % 

970 

980 CLS:SCREEN7,0,O 

990 BOX < 50, 20 ) - '( 220, 150 ) , 15 

1000 COLOR'15:LOCATE?,O :PRINT"PIANTA DE 

L_ CASTELLO" 

1010 BO XF ( 140,30 ) ••••• < 170.. 60 3 , 10 
1020 I... I NE < 151,60 ) -■ < 151,70 ) , 10 : L. I NE ( 158,6 
0)-(158,703,lo 

1030 BOXF < 140, 70 ) - < 170, 100 > , 3.0 
1040 LI NE ( 170 ; 81 > - < 180,8 3.3 , 3.0 : LI NE ( 3.70, 8 
9)-(180,89),10 

1050 BOXE ■ 1 SO, 703.<2 3.0, 3.003 , 3.0 

1060 BO X F < 130, 70 > ~ < 100, 3 00 3 , 3.0 

1070 LI NE < 3.30,81) •- « 3.40,813,10 s LI NE ( 3.30,8 

9)-(140,89),10 

1080 BOXE < 90, 70 3 ~ (60, 3.00 ) , 10 

1090 LI NE ( 90, 81 3 ~ < 100, 813,3.0 : L. I NE ( 90,89 ) 

-(100,893,10' 

1100 BOXF'<90, 3.10) - <60, 140) , 10 

3.110 LI NE <71,110 ) - ( 71,90 3 , 10 : LI NE ( 79, 3.3.0 

3 -<79,903,10' 

1120 BO X F '< 100, 110 3 - < 3.30, 140 3 , 3.0 
13.30 LI NE < 1 1 1, 1 10 >-<111 90 3 , i 0 s LI NE ( 3.18, 
110)~<118,90),10 

1140 LOGATEO ,23:FRINT"PREMI UN TASTO PE 
R CONTINUARE"' 

1 3 50 QA$= I NKEY$ : I FQA$= " " THEN13.50 
1160 RETURN 
1 170 ' 

1180 * % % * * *%*%t * * * *%%%%%%%t% *%%%%%% % % 

1190 ’ % % 

1200 r % VOCABOLARIO * 

1210 ” % % 

1220 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

1240 CLS:SCREEN7,0,0: LOCATE13,2:PRINT"VO 
CABOLARIO":LOCATÈO, 5 

1250 PR .1. NT : PR I NT " ' SCE 

NDO" 

1260 PRINT:PRINT" PRE 

NDO " 

1270 PRINT:PRINT" USO 


100 





1280 
030" 

1290 
MINO" 
1300 
T AM I " 
1310 


PRINISPRINT" 
■RI NT : PR I NT " 
PRINT: PRINT" 
RINTSPRINT" 


ACADABRA" 

1320 LOGATEO,5 
1330 PRINT:PRINT" 

1340 PRINT:PRINT" 

1350 FRINTSPRINT" 

1360 PRINTSPRINT" 

1370 PRINT;PRINT" 

1380 PRINTSPRINT" 

1390 PRINT:PRINT" 

1400 I... OCA TE 4,21: PR I NT " PREM I 
CON IINUARE"' 

1410 Q$>= I NIC E'Vii* ; I F<2$= " " THEN1410 
1420 RETURN 
1430 
1440 
1450 

I 460 
1470 
1480 
1490 
1500 

.1510 
1520 
1530 
1540 

II 

1 550 
1560 
E" 

1570 
SO " 

1580 

n 

1590 

II 

16*00 


S AL¬ 
ESA 
AIU 
ABR 


APRO " 

ENTRO" 

ALZO" 

SPOSTO" 

BEVO" 

LEGGO" 

VOLO" 

UN TASTO 


PER 


CL 


*: * * *: * % * % % % % % % % % % % % % % * * * % * * *: % 
% * 

* INVENTARIO :fc 

*, t 

****** * * * :!<: * % % * * * * * % % * % % *: 4 * * * * * 

.8s SCREEN 7,0,0; LOGATEO„0s PRINT ! 
OGGETTI: l-'R I NT ; PR I NT 


IFCH=1THENPRINT" 
IFAG=1THENPRINT" 
IFF=1THENPRINT" 

IFPI«1THENPRINT" 

IFFR=1THENPRINT" 
IFF1=1THENPRINI" 

IFCR-1THENPRINT" 

IFSC=1THENPRINT" 

IFSP=1THENPRINT" 

IFXC=1THENPRINT" 


CHIAVE" 
AGLIO " 
LANTERNA" 
PISTOLA 

FRUSTA" 

FISSATOP 


CROCIRIS 
SCALA 
SPRANGA 
CORDA 


1610 LOCATE4,21:PRINT"PREMI UN TASTO PER 
CONTINUARE" ' 

1620 Q$= I NKEYiti : I FQ$= " " THEN 1620 
1630 RETURN 

1 640 PR I NT " * * * * * % * % % * % % * ****** * * * * * * % % % * 
#*#*******":RETURN 

1650 P RIN T " * * * * % * * * * * * * # * * * * * * * * * * * * * % * * 
**********":RETURN 
.1660 ’ 

1670 ’ ** * * * ********4*. * * * * * * * ** * * *** * 
1680 •- * * 








1690 
1700 
1710 
1720 


* INPUT * 

* * 
* * * * * * * * * * * * * ile * * * * * * * * * * * * * * * * 


1730 PRI NT ; INPUT " Cosa f a i " ; Rii s CF=CF+-1 
1740 D A T A X X X X , X X X X X X X , X X X X X , X X X X X X X „ X X X 
XXXXXX,XXXXX,XXXXXXXXXX,XXXXX,XXXXXXX ! RE 
M inserire: LE parolacce' 

1750 RESTORE1740:FORO®1T09:READW$sIFR$=W 
$THENPR I NT : GOSUB1640 : PRI NT " A T 

E E A TUA MADRE . . . " : PRINTs GOSUB1640: GOT 
01730:ELSENEXTQ 

1760 I FR$= " AIUTAMI " THENPRI NT : GOSUB 1640 :: P 
RI NT" Fossi scemo ... 1 » ADVENTLJRE te la 
devi ri solvere da soIo. 

<E SON CAVOLI...» tuoi >" : GOSUB .1 
650:GOTO1730 

1770 IFR$="VOLO"THENPRINT s GOSUB1640:PRIN 
T" Niente male come idea.,, peccato perca' 
che, casomai te lo fossi dimenticato, n 
on sèi ne’ un DIRIGIBILE ne’ un JUMBO":: 
GOSUB1650: GOTO1730 

1780 IFR*«"ABRACADABRA"THENPRINT :GOSUB16 
40SPRINT" 000H ma cosa credi ?! che ques 
ta sia una favola come ALI BABA’?! Ques 


to e’ un ADVENTURE 
: GOTO1730 


:GOSUB165 


1 790 
1BOO 
1810 
1820 
1830 
1340 
1850 
1860 
1870 
1880 
1890 


RE TURI ! 

PR I NT : F0RF' : 


^1TO160: NEX TP: RETURN 


**************** * * * * * * * * * * * * * * 
^ £ 

* VERBI E OGGETTI * 

* * 
***************** ** * ** ** **** * * 


1880 V1 $= " BEVO " ; V2$® " SPOSTO " 

1890 93$=" ALZO" s V4$="ENTRO" : V5$=" APRO" : V 
6$="ESAMINO":V7$="SALGO" 

1900 V8$="USO":V9$="PRENDO" 

1910 MI$="SCENDO" 

1920 01$="LAMPADARIO": 02$= "PORTA": 03$= " 
AMI NO" : 04$= "SCALA" : 05$= "LANTERNA" : 06$= " », 
ANGUE":V0$="VOCASOLARIO":0G$="INVENTARI0 


1930 D1$="NORD":D2$="SUD":D3$="EST";D £ 
"OVEST" 

1940 RETURN 
1950 ’ 

1960 ’ ************************* *** ** 

1970 7 * * 

1930 ’ * END GAME * 

1990 ’ * * 

? 000 ’ **** * * ** ******** * * * * *** * * * * ** * 
2010 ’ 

2020 FQRP=1TO1500: NE XTP:CLS: LOGATEO,5: 
REENO, 2,2 : PR I NT " PECCATO " ; CV$ 
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2030 PR INI SPRINT "NON SEI RIUSCITO AD USC 
IRE DAL CASTELLO DI DRACULA COMUNQUE PUÒ 
I SEMPRE RI PROVARE" 

2040 FRINT:FRINT"PREMI UN TASTO PER RIPR 
OVARE" 

2050 U$=INI<EY* 

2OSO IFU$=""THEN205O 
2070 RUM 

2080 GOSUB1650: GOSUB1800:: INPIJT " Di r fz i nn 
e "; DI $ 

2090 IFDI *=D 1 $THEN2 J. 10 

2100 IFDI*<>DI$THEN:PRINT;PRI NT" Non e 7 

possibile":GOT02080 

2110 

212 0 ’ * t * * * # # # # * * * # * ****** % * * * * * * * * * 

2130 ’ * * 

2140 ’ * CORRIDOIO DEL CASTELLO * 
2150 ’ * ,* 

2160 ’ % %%%% *: * * 1*1 * * % % % t * * * * % %%%%%%%% 

2170 ’ 

2180 PLAY"MIDOREMILASO" 

2190 CLS:SCREEN 2,0,0: LOCATE?,0:PRINT"CO 
RRIDDIO DEL CASTELLO":PRINT 
2200 GOSUB1640 

2210 PRINT"Sei nel CORRIDOIO, punto di r 
accordo di tutte le stanze,c 7 e'un buio 
pesto riesci a malapena ad intravedere 
un OGGETTO luccicante,nell'aria c'e’un 
acre ODORE. . . "s FRINÌ" 

2220 PRINT"Direzioni: Est,Sud,Ovest":GOSU 
B1650 

2230 GOSUB1730 

2240 IFR*=V6*+" " + "CORRIDO10"THENY*1 :GOS 
UBIS0O:PRINT"C’e 7 troppo buio, non si ri 
esce a distinguere nulla,, ci vorrebbe un 
po' di.. 1uce":GOSUBléSOsGOSUB1730;GOT 

02240 

2250"IFR*=V8*+" "+05*ANDF=1ANDY=1THENL-1 
:GOSUB1800:FRINT"Ora va meglio! ! !,vedo u 
na CHIAVE":GOSUB1650:GOSUB1730:GOSUB1800 
2260 IFR*=V9*+" "+"CHIAVE"AND! ..=1THENCH=1 
:OG=OG+1 :PRINT" O.K...GOSUB1650;GOSUB1 
730:GOTO2240 

2270 IFRS=V8$+" "+»LANTERNA"ANDF=0ANDY=1 
THENGOSUB1800: PR I NT " Bug i ar do non c 7 e 3. 7 h 
ai ! ! !":GOSUB1650:GOSUB1730:60102240 
2280 I FR*=V9*+ " " •+• "OGGETTO"ANDY=0THENGOS 
UB1800:PRIN T "AL t a t1o sembra una CHIAVE I 

! ! , ma. ahi, qualcosa mi ha morso ! ! 

!":GOSUB1650:GOT02020 

2290 IFR*=V6*+" "+"ODORE"THENGOSUB1800:P 
RINT"Niente di speciale feci di topo.... 

":GOSUB1650:GOSUB1730:GQT02240 
2300 IFR*=VO*THENGOSUB1240:G0T02180 
2310 IFR*=OG*THENGOSUB1500:G0T02180 
2320 IFR*="O"THENGOSUB1650:GOSUB1800: INP 
UT" Direzione "5 DI*:IFDI*=D2*THEIM140ELSEI 







FDI $•—D3$THEN290OELSE IFDI **D4*THEN241 OEL...S 
EG0T02340 

2330 GOSUB1800SPRINT" LASCIA STARE„ . . . " : 
GOSUB 3.650s GOSLJB 3.730 : GOT 02240 
2340 PRI NT' : PRI NT " Non epossi b i I e " : CiO T02 
3 3.0 

2350 % % # * *#** * % * % % % t * * % t * * & % % % % % t * * 
2360 .* * 

2370 * SEGRETE * 

2380 ’ % % 

2390 ’ * % * * * *t # * * % % % % * % %*####** * % % * % * 

7400 

2410 PLAY"DODORE" 

2420 BU=0s CLS:SCREENO,8,8: LOCATE14,0sPRI 
NT"SEGRETE":PRINT 
2430 GOSUB1640 

2440 FRINT"Sei sceso giu’nelle segrete,u 
n luogo umido e raccàpricciante, noti i.in 
a FRUSTA, una GRIGLIA,e una LUCE intensa 
, oltre che centinaia di topi."s PRINTs P 
RINT"Dire2ioni: Sud,Est" 

2450 GOSUB1650 
2460 GOSUB1730 

2470 IFR$=V9$ + " " + "FRUSTA"TUENFR™1s OG-OG 
+1 :GOSUB1800:PRINT" OK...":GOSUB1650:GOT 

2480"" I FR*=V3$+ " " + " GRI Gl... IA " THENG0SUB3640 
2490 IFR*=V6*+" "+"LUCE"THENBU-1sGOSUB18 
00s PRINT"Proviene da un BUCO sulla paret 
e! ! ! ":GOSUB1650;GOT02460 

2500 I FR$=y4$+ " " + " BUCO " ANDBU-1 THENGOSI.JB 

1300: GOT0'740 

2510 IFR$="0"THEN2550 

2520 IFR$~V0$ THE NG0SUB1240 sG0T02410 

2530 IFR$=OG$THENGOSUB1500:GOT02410 

2540 GOSUB 1800 : FRI NT" LASCIA STARE. 11 

: GOSUB 1650 s GOSLJB 1730 ; G0T02470 
2550 GOSUB .1650 : GOSUB .1800 s INFTJT " Di r ez i on 
e ";DI«: IFDI*=D2*THEN2640ELSEIFDI*=D3*TH 
EN2180 

2560 I FD I *< >D2$0RD I *< >D4*THENs PR I NT : PR IN 
T" Non e’ possi bile":G0T02550 


2570 
2580 
2590 
2600 
2610 
7 A 70 

.1». .1... V 


#**«**:* * * * Y * * * * * * * * * * * * * * *: ** 
* * 
* ARMERIA * 
% $ 
% % % % % # % %%%%%%*#*###* % %t%%%% % * 


2640 PLAY"MIREDODOREMI" 

2650 MA-0 : CLS : SCREEN 0,15, 3.5 : L0CATE8, 0 : P 
RINT" STANZA DELLE ARM1":PRINT 
2660 GOSUB1640 

2670 PF:INT"Sei neli armeria, sul 1 e pareti 
vecchi e armi , una PISTOLA, dèi f uci .1 i , un 
rudimentale CANNONE,sul I a destra un ARMA 
DIO.":PRINT:PRINT"Dìrezioni possibi 1i: No 
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rd" 5 GOSUB1650 
2&Q0 GOSUB :l 730 

2690 I FR*=V2*+ " " + " CANNONE " THENMA-1 : GOSU 
B1800 : F'R I NT " Eh i 1 a! ! ! c’e J un a MAPPA..." 
s GOSUB1650:60102680 

2700 I FR$= " LEGGO " + " " + " MAPPA " ANDMA= 1 T'HEN 
60SUB980:SCREENO:G0T02640 
271 0 IFR$=V0 $THENGOSLJB :i. 240 : G0T02640 
2720 I FR$=OG$THENGOSUB.1.500 : G0T02640 
2730 IFR*=V9*+" " + "PISTOLA"THENPI«1 :GG=G 
G +■ 1 : GOSUB 1800 : PRI NT " 0K..." : GOSUB 1650 : G 
Oì 02680 

2 740 IFR$=V5$-+ " " + " ARMAI.) IO " ANDAG=0 F'HENGO 
SUB 1800 ; F'R I NT " C 7 eun be 1 Vanno i r a qui den 
tro! ! ! !"sG0T02020 

2750 I FR$=V5$+ " " ■+• " ARMAI) 10 " ANDAG= 1THENVA 
= 1 : GOSUB 1800 : PR I NT " Ser ve 1 7 AGL 10, c * e un 
vampirò! ! ! !" :GOSUB1 ÒSO:G0T02680 
2760 I FR$=V8$+ " " + " AGL 10 " ANDVA= .1. TriCNQE-1 


:GOSUB1800:PRINT"o.k, 


■ ampi ro 


c o i n u n q u e n e 1 i " a r m a d i o t r o v i 
. " GOSUbl 650: G0T02680 


: Oìj -QG t 1 : GOSUB .1.800 s PR I NT " 0. K..." : GOSUB 1 
650 : G OT0 2 680 

2780 IFR$~V6$+" "+"CANNONE"THENG0SU81800 
: P RIN T ' ' Eu n v e r o r e 1 i 11. o , c o m u n q u e e 7 m e 
q 1 :i o no n a ss a g i a r e :i. s u o i c o 1 p i " : G 0 S U B 3 6 
50:GO'l02690 
2790 IFR$="0"THEN2810 

2800 GOSUB 1800 : PR I NT " !... ASC IA STARE..." : 0 
OSUB1650:G0T02680 

2810 GOSUB 1650: GOSUB 1800 : I NF'UT " Di rei i on 
e " s DI $ : IFD 3: *=D 1 ÌTHEN24 3.0 
2820 IFDI*< >D1 TTIIEN: FRINÌ': PRINT" Non e’ 
a oss 3. u ile": G0T02810 


2830 7 

2340 7 *##** ******#% %t* * *#***#* *##** 

2850 7 * % 

2860 7 % BIBLIOTECA # 

2870 7 * * 

2880 7 % t * % % 11 # # t % * % t % % * * % t * * * % t % * $ * 

?goo •’ 

2906 PLAY”DODOSOLA":SCREEN 0,10,IO 

29 3.0 CLS : LOCATE 3.3,0 : PR I NT " BIBLIOTECA " : PR 

I NT 

2920 GOSUB1640 

2930 PRINT "Questa e 7 un antica bibliot.ee 
a,su di un grosso SCAFFALE vi sono LIBR 
Idi tutti i generi, pieni di ragnatei 
e,al centro della stanza c’e’un TAVOLO." 
:PRINT :PRINT"Dir ezioni: NORD,EST,OVEST" 
2940 GOSUB1650 
2950 GOSUB1730 

2960 IFR$ : = V0i{>THENGOSUB 1240 : GOT02900 
2970 IFR$=0G$THENGOSIJB1500 : GOT02900 
2980 IFR*=V 6 *+" "+"LIBRI"THENGOSUB1800:L 
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1 : l~'R IW I "C •' e 7 n 7 e; ' uno par t i col are ! ! ! ! !" ; 
GOSUB1650:G0T02950 

2990 I FR$~ " LEGGO " + " " + " LIBRD " ANDL.G= 1THEN 
GOSUBIQOo : F'RIMT " Ah ! , dice che per portare 
ai termine 1 7 adventare bisogna a qual 
siasi costo trovare il FISSATORE per den 
ti ere che si trova nel cimitero....":GOS 
LJB1650 s GOTO2950 

3000 __ 1 FR*«V2*+ " " + " SCAFFALE " ANDFR= 1THENL 
U = lsGOSUBl 8 0 0 : F' RIN T " S o n o c a d u t i. t u ir. t j. ri 
libri!!! comunque dietro lo scaffale c 7 e 
uno strano LU0GO....”:GOSUB1650:G0T02950 
3010 I FR*=V2*+" " + " SCAFFALE " ANDFR=C>THENG 
USUB1800: F'RIMT" I libri ti cadono addosso 
.. . .brutta fine morire soffocati GOSUB 16 
50sG0T02020 

3020 IFR$=V6$+ " " + "LUOGO ” AMDI....U--1 THENP0= 1 
:: GOSUB 1800 : PRINT"E 7 un brutto posto, contu 
nque vedi una BOTTIGLIA,ma anche un pip 
i s t r e 1 I o d ec i so a f er irti...": GOSlJB1650 : 
GOT02950 

3030 IFP0=1ANDR*=V8*+" "+"FRUSTA"THENP0= 
2! ; LQ= 1 : GOSUB 1800: F'R I NT "Hai uc:c i so i. 1 p i p 
istrello, povera bestia, dunque hai dava 
nti a te la BOTTIGLIA piena di un li quid 
o mi sterioso..":G0SUB1650:G0T02950 
3040 IFP0~1THENGOSUB1800:PRINT"Hai fatto 
male!!! il pipistrello non perdona...p 
erd:i sangue. . . muori ! ! ! ! " : GOSUB 1650: GOTO 
2020 

3050 IF P$=V 1$+" " + " BOTI I GL IA " A N D P 0=2 A N D L_ 
0=1THENVE=1:GOSUB1800:FRINT"Bravo ! !,hai 
avuto coraggi ci ora sei immune ai veleni" 

:GOSUB1650:G0T02950 

3060 I FR$=V6$i+ " " + " TAVOLO " THENGOSUB 1800 : 
F’R I NT "Non ci noto nulla di anormale...": 
GOSUB1650:G0T02950 
3070 IFR$="0"THEN3090 

3080 GOSUB 1800 : PR I NT " L. ASC IA STARE..." : G 
OSUB1650:G0T02950 

3090 GOSUB 1650 : GOSUB 1800 : I NF'UT " Dir ez i or. 
e"“DI $ 

3100 ' IFDI$=B4*.THEN21 80EL.SE IFI)I$=D 1 $THEN3 
190ELSEIFDI$~D3$THEN3450ELSEIFDI$~D3$THE 
N2180 

3110 GOSUB1800:FRINT" Non e’possi hi 1 e":G 
CITO3090 

3120 ' 

313 0 ■ * % % % % % * % %%%% % %%%% % %%%%%%%% % t *. % 

3140 * * 

3150 r t STANZA DEI TESORI * 

3160 ’ * * 

3170 • tt^tiiit**t**t*^*************tt* 

3180 7 

3190 PLAV'DOREDO" 

3200 CLS: LOCATE9,0:PRINT"STANZA DEI TESO 
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RI"SPRINT 
3.210 GOSUB1640 

3220 P RIN T "Ti tr o v i n e 11 i m m e n s a s t a il z a 
dei tesori, vedi Uno SCRIGNO, una PORTA 
d o r a t a dei ' CIM E !... I d i i n e s t i m à b i 1 e v a 1 o r e 
(artistico) ..... senti dei lamenti " SPRINT 
; PRI NT " Di. r ez i on i ; Sud " 

3230 GOSUB1650 
3240 GOSUBI730 

3250 IFR*=V5*+" "+02$ANDXC=0THENG0S(JB180 
OsPRINT"La porta si e J chiusa e davanti a 
te c’e’un gran Fossato, non hai i. mez 
zi per oltrapassarlo, rimarrai qui den 
tra per il resta della tua corta vita" 
:GOSUB1650: GOTO2020 

3260 IFR$=V5$+" " +-02$ANDXC= 1 THENLK— 1 : G0S 
UBI 800: PRINT"0. k. amico, non ti trovi ino 
Ito a tuo agio, la porta si e’ chiusa e 
davanti a tè c* e’solo un gran fossato, c 
omunque noti qualcosa a cui appenderti,c 
i vorrebbe una CORDA..":GOSUB1650sG0T032 
40 

3270 IFR$=V8$+ " " + "CORDA"ANDLK-1THENKL-1 
:GOSUB1800:PRINT"Ehi,che mir a ! sembri In 
diana Jones... hai superato il fossato e 
trovi una SPRANGA di ferro...":GOSUB1 
650:GOTO3240 

3280 IFR*=V9*+" " + "SPRANGA"ANDKL.= 1THENSP 
= 1: 0G*0G+1 : GOSUB 1800 : PR I NT " 0. K..." : GOBI) 
B1650:G0T03240 

3290 I FR$=V6$+ " " •+• " SOR IGNO " ANDSC,=OTHENPR 
I NT "Non e : ' uno scrigno ma un profondo po 
zzo,da qui provengono i 1 amenti ...bisogn 
a che trovi una SCALA deve stare in qual 

che stanza del castello.GOSUB1650: 

GOTO 3.2 40 

3300 I FR$=V6$+ " " + " SOR I GNO " ANDSC« 1TI-IENHJ 
= 1 :GOSUB1650:PRINT"Non e 7 uno scrigno ma 
un profondo pozzo,da qui provengono i 1 
amenti ci vorrebbe una SCALA. . ,. " : GOSUB 16 
50:G0T03240 

3310 IFR$=VS*+ " "•+■ "SCALA "ANDUJ= 1 THENUS= .1. 
; GOSUB .1.800 :PRI NT "Bravo eroe hai salvato 
la vita a questo turista giapponese,vitt 

ima dei vampiri_ma ora cosa vuoi?' la m 

edaglia , continua 1 ? adventure! ! ! ! !":G0S 
UE-ì 1650 s GÓT03240 

3320 I FR*=V6*+ " " + "CINEL.. I " THENGOSUB1800: 
PRINT"Sono di gran classe....davvero! ! !" 
s GOSUB1650:G0TQ3240 

3330 IFR*=V9$+"CINELI"THENGOSUB1800:PRIN 
T"Fermo ! ! ! ! non sei venuto qui per rubar 

e_guarda che f i gura. . " : GOSIJB1650: GOTO 

3240 

3340 IFR*="0"THEN3380 

3350 I. FR$=V0$THENG0SUB 1240 : G0T03190 

3360 IFR$=QG$THENG0SUD1500:G0T03190 
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3370 GQSLJB1800; PRI NT " LASC IA STARE..." : G 
OSUB1650 ; GO T03240 

3380 GOSUB1650 : GOSUB1800 : INPUT" Di reziari 
e "5 DI * : IFDI*=D2$THEN2900 
3390 IFDI*K>D2$THENPRINI .“PRIMI" Non e’ n 
oseibi1 e":G0TQ3380 

3400 * % * * % % % « % % % * % % % % % % % % * % % % * sjc % % % % 

3410 % * 

3420 % STANZA DEGLI OSPITI * 

3430 * % 

3440 * 11 % 111 * % * % % * % % % % % $ % t * # # 111 * * * 

3450 PLAY"DODOREI A" 

34óO CL..S : COLOR 1 „ 14 : LOCATE 12, O; PR INT"SAI A 
OSPITI"SPRINT ' 

3470 GOSUB5640 

3480 PRiNT"Ti travi nella lugubre stanza 
degl i ospiti, vedi, un QUADRO raff iqura 
n t e P r a n !••: e n s t e i n. u n I E T T O p o c o i n v i t a 

nte e un grazioso cadavere con due bei 
buchi sùI co 1 1 a s RRINTs PRT I IT"Di 

rezi arri : Ovest " 

3490 GOSUB1650 
3500 GOSUB1730 

35 ì O I FF:$=VOTIHENGOSUB1 240 s R0T03450 


5520 

IFR$ = 

OGTT 

MENI 

l "‘’j *•, ! i 

I FR$= 

V6$ i- 

il II 

" 

:i. Suo 

PRI NT 

"CP e 

:• i ? .. 
i »• 

ili a u r 

i mome 

n t o 

» , . :i 

;j V.Oì' 

■ rebbe qu 

al ci: 

.1 650 

GOT03500 



3540 I FFK= 1 ANDRT=VSf. i" " " + " SPRANGA " ANDSP= 
1 THENFK=2 s GOSUB 1800 : PR I NT " Wow ! 1 ' 1. ’ h a i s 

teso...guarda guarda. aveva con se un 

CROCIFISSO ! !T!":GOSUB1650•G0T035OO 
3550 IFR$«V9*+" " + " CROCTFI OSO " ANDFP=o 'n >.r 
NCR= 1 : GOSUB 1800 s PR I NT " 0. K ..." * ROSI IP 1 ìA'n '» 
G07 03500 

3560 I FFK= 1THENGOSUB1 000 : PR T NT " S a i. :i J ir. a 
strino, ha dal le forti brami „ " « ROSIi 

B1650: GOTO2020 

3570 IFRT's V4$ r" " i "!. ETTO"THFNGOSI ìFrl "• 

di carne in di sf^ri'iwa-r'tcu'’. ' s GOSUB165 
O ; GO ì i 13490 

3580 I FR$=V6T +• " " " !.. ..ETTO " THENGOSUB 1800s P 
PINI"ni ente da dire...non ci dormirei ma 
^ ’ un letto e basta ! ! ! " : GOSUB 1650: 
GOTO3500 

3590 IFRT-"0"THEN3610 

3600 GOSUB1800:PRINT" LASCIA STARE..." ;G 
OSUB 1650 : (50T03500 

3610 GOSUB 1650 : GOSUB 1 800 ! INPUT " Dir ez i ori 
e " ; DI $ 

3620 IFDI$=D4TTHEN2900 

3630 GOSUB1800sPRINT" Non e'possibi1 e": 0 

0T03610 

3640 ? 
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3650 IF0GG<9THENG0SUB1300:PRINT"Ok! ! ami 
co guardaci dentro per i prossimi cento 
anni ! ! ! !»s GOSUB1650:G0T02020 
3660 IF0GG=9ANDVE=1THENCLS:SR«1 :GOSUB164 
0SPRINT"Ehi i ma questo e” il nascondi gli 
o di DRACULA e : 'pieno di. serpenti ma ave 
rìdo bevuto :il siero antiveleno puoi star 
e tranqui 11o! 1 ! " 

3670 IF0GG=9ANDVE=0THENG0SUB1800 s GOSUB 1.6 
40;FRINT"E’i1 nascondi glio di Dracula,pe 
ro' : e' : pieno di serpenti , uno ti morde.muo 
riGOSUB1650:END 

3680 I FSR= 1ANI)LIS0THENG0SUB1300 s GOSUB 1 è 4 
0:PRINT"Comunque non hai salvato il turi 
sta ":GOSUB1650; END 

3690 I FSR= 1. ANDIJS-1THENDF» 1 : PR I NT ; PR I NT " H 
ai salvato il turi sta,bravoi ! !" 

3700 I FDF= 1ANDCR-OTHENPRI NT : PR I NT " Per o 
all'' improvviso arriva un fanta sma non 
h a i i 1 cr oc i. f i sso e muor i " ; GOSUB 1650 : END 
3710 IFDF=1ANDCR=1THENLP=1 :PRINT:PRINT"A 
rriva un fantasma all 7 improvviso usi 
il crocifisso che hai trovato e lo fa 
i secco" 

3720 1 FLP= 1ANDFI “0THEN ; PR I NT s PR I NT " Ec c: o 
il conte e 7 ansioso di avere il suo f i. s 
satore ma purtroppo tu non lo hai # ti 
si suo aGOSUB 1650 ; END 
3730 I FLP= 1 ANDF I = 1 TPIENI : PR I NT ; PR I NT " Ecco 
che arriva il conte e vede che porti c: 
on te il suo fissatore.,. per la gioia 
ti da un bacetto sul collo ti ritrovi 
senza un goccio di sangue ma -felice di 
aver r i so 11 o 1 7 AD VENTURE " : GOSUB .1.650 : END 
3740 SCREEN0,7,7 
3750 7 
. < J A »! ) 7 

3770 L0CATE0,4:FRINT"TI TROVI NEL CASTEL 
LO DEL CONTE'DRACULA, UN LUOGO PIENO DI 
INSIDIE ■:TRARRÒ LE TRABOCCHETTI)." 

3780 FRINT:PRINT"IL TUO SCOPO E 7 DI RIUSO 
IRE A TROVARE IL FAMOSO VAMPIRO NASCOSI 
0 IN QUALCHE ALA DEL. CASTELLO. " 

3790 PRINT:PRINT"PER RIUSCIRCI DEVI PERO 
7 RECUPERARE DEGLI OGGETTI (ALCUNI NAS 
COSTI),SENZA I QUALI NON POTRESTI ACCEDE 
RE IN LUOGHI SEGRETI ANDANDO INCONTRO A 
MORTE SICURA." 

3800 PRINT : PRINT " IIMPORTANTE ! ! : RI VOLGERS 
I AL. COMPUTER SCRIVENDO MAIUSCOLO ED IN 
PRIMA PERSONA. <ES. PRENDO CHIAVE) PER 
CAMBIARE DIREZIONE SCRIVERE 7 0 7 + RETURN 
. COMANDI SPECIALI: VOCABOLARIO; INVENTA 
RIO. 

3810 .FRINT:PRINT"PREMI UN TASTO PER COMI 
NC: I ARE " 

3820 1F INKEYf>= " " THEN GOTO 3820 
3830 RETURN 
3840 STOP 
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BILANCIO 

FAMILIARE 


Spessissimo, per la piccola contabilita' o budget familiare, ci 
serviamo di strumenti inadatti od obsoleti, come il vecchio qua¬ 
derno zeppo di cifre o la busta piena di ricevute che nessuno 
trova il tempo di controllare. Purtroppo, cosi' facendo, qualsia¬ 
si tentativo di pianificazione e controllo, risulta inattuabile o co¬ 
munque richiede molto tempo in noiose ricerche e calcoli. 

Questo programma e' nato proprio per risolvere in modo imme¬ 
diato il problema della piccola contabilita', richiedendo il solo 
ed unico sforzo di aggiornare periodicamente i dati contenuti. 
Sapere quanto hanno inciso sul bilancio le spese dell'auto in 
un anno o quanti pagamenti abbiamo effettuato con asse¬ 
gno piuttosto che in contanti, non sara' piu' un problema, gra¬ 
zie all'aiuto del vostro PC 128. 

Il programma e' essenzialmente un database con le ovvie fun¬ 
zioni di inserimento dati, salvataggio e caricamento dalla cas¬ 
setta di tutte le informazioni memorizzate. Oltre alla funzione di 
archivio, sono disponibili anche le opzioni di calcolo, per otte¬ 
nere somme totali o parziali per periodi, per tipo di spesa, ecc. 
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Commento alle linee del programma 

70-100 

presentazione 

160-260 

cambio dei colorì 
290*420 

menu principale 
430-530 

menu gestione archivio 

540-730 

routine caricamento dati 

740-920 

routine salvataggio dati 

930-1380 

routine inserimento dati 
1390-1470 

menu correzione 
1700*1850 

routine definizione tipo di spese 
1860-1980 
menu analisi 
1990-2120 

routine analisi dei dati 
2130-2270 

routine stampa su carta 

2280-2400 

scelta tipo pagamento 
2410-2550 
routine stampa 
2560-2770 
routine stampa 
2780-2820 

uscita programma 
2830 

dati tipo di spesa 
2840-2850 
dati mesi 

2860-2940 
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10 R E ri % * * * % % * * % % % * * * % % % % % %%% 

20 REM % % 

30 REM t BILANCIO FAMILIARE * 

40 REM * # 

50 REM ** # t*%*%% % % * %%%tt * %%%* 

60 REM 

70 SCREEN 7,4,4:CLS:ATTRB 1,1:COLOR 3,1: 
PRI NT : PRI NT " ' BILANO 10 RAM I (... I ARE " : COLOR 
7 4 

80 ’ A'TTRBO, O : PR I NT " QUESTO PROGRAMMA SERV 
E AD ARCHIVIARE TUTTE LE SPESE IN AMB 
ITO FAMILIARE":PRINT 

90 PRINT "PREMI UN TASTO PER PROSEGUIRE 


############################## 

#########" 

100 IF INKEY*=""THEN: GO TO 100 
110 CLS : CILE AR1000 : SCREEN 7 „ 4,4 


120 DIMA*(16) 
< 1 SO > , V7. ( 1 SO ) 
> 


m*/. ■; i so >, ex •: i so >, c::% < 1 so ), T 7 . 

P* ( 5 ) , TU* (12), Kf> ( 4 ) „ MH$ '( .1.2 


130 GOSIJB 2830 
140 ? 

150 GOTO 280 
160 CLS 

170 LOCATE 4,8: INPUT"COLORE INCHIOSTRO 
" ; C1 

180 GOSIJB 3350 
190 I F'C 1 < OORC1 > 15THEN 170 

200 LOCATE 4,10: INPUT"COLORE SFONDO ";C 


210 GOSIJB 3350 

220 IFC2<00RC2>15THEN 200 

230 IF C1“C2 THEN 160 

240 SCREENCI,C2,C2 :GOSUB 3230 

250 LOCATE 4,10:PRINT"VA BENE COSI' ? <S 

/N ') " 

260 GOSUB 2950 

270 IFSS=OTHEN SCREEN7,4,4:GOTO 160 
230 GOSUB 3230 

290 LOCATE 9,2:PRINT" BILANCIO FAMILIARE 

II 

300 LOCATE 4,4:PRINT”1) GESTIONE ARCHIVI 
0 " 

310 LOCATE 4,6:PRINT"2) INSERIMENTO DATI 

II 

320 LOCATE 4,8:PRINT"3) MODIFICA DATI" 
330 LOCATE 4,10:PRINT"4) ANALISI DEI DAT 
I " 

340 LOCATE 4,12:PRINT"5) USCITA PROGRAMM 
A " 

350 LOCATE 4,14:PRINT"6) CAMBIO COLORE" 
360 LOCATE 4,17:PRINT"PREMI IL TASTO COR 
RISPONDENTE " : LOCATE 8,19: PR I NT " ALL. ' OPZI 
ONE SCELTA" 

370 SS*~JNKEY*:IFSS*=""THEN 370 
380 GOSUB 3350 
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390 AS-VAL (SSt>) : IF AS«3THEN NY=NS 

410 0N AS BOTO 430,930,1380,1860,2780,16 

i"> 

420 GOTO 370 

430 GOSUB 3230:LOCATE 6,2SPRINT"#** BEST 
IONE ARCHIVIO ***" 

4 4 '■ ■ 

450 LOCATE 4,6:PRINT"1) CARICAMENTO DA N 
ASTRO" 

460 LOCATE 4,S:PRINT"2> SALVATAGGIO SU N 
ASTRO" 

470 LOCATE 4,10:PRINT"3) RITORNO MENU’ P 
RIMCIPALE" 

4 SO ’ 

490 LOCATE 4.17:PRINT"PREMI IL TASTO COR 
RISPONDENTE " : LOCATE S19 : PR I NT " ALL » ORZ I 
ONE SCELTA" 

500 SS$=INKEY$:IF SS*=""THEN500 
510 GOSUB 3350 

520 VS=VAL(SS*>:ON VS GOTO 540,740,280 
530 GDT0500 

540 CLS:LOCATE 7,2:PRINT"*** CARICAMENTO 
DATI *#*" 

550 ■ 

560 FI" " : LOCATE' 4, 10: PR INT"NOME DEL F 
ILE 

570 INPUT Eliti 

580 IF LEN(FI*>>8 THEN FI$=LEFT*<FI*„8> 
590 GOSUB 3350 

600 PRINT:FRINT:PRINT" VA BENE " ; FI $ ; 

" (S/N) ?" 

610 GOSUB 2950 
620 IF S S “• 0 T H E N 5 4 O 

630 IFVS=1THEN OPEN "I",#1,"CASS s"+FI« 
640 ’ 

650 INPUT #1,NS 
660 FORNAI 1 TO 15 
670 INPUT#1,A$(N) 

680 NEXT N ' 

690 FOR D=1 TO NS 

700 INF'UT # 1 , M7. <D) , G7. <D> , V7. (D) , T% < D ) , C7. ( D 
\ 

710 NEXT D 
720 GLOSSE# 1 
730 GOTO 280 

740 CLS:LOCATE 7,2:PRINT"*** SALVATAGGIO 
DATI **#" 

750 FIf>=" " : LOCATE 4, 10: PRINT"NOME DEL F 
11 E r " ; 

760 INF'UT FI* 

770 IF LEN(FI$>>8 THEN FI*=LEFT*(FI*,8) 
780 GOSUB 3350 

790 FRINT:PRINT: FRINT" VA BENE ";FI $; 

" (S/N) ?" 

800 GOSUB 2950 
810 IFSS—0THEN740 
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820 

IF VS--2 THEN OPEN 

"0",#1,"CASS:"+FI 

830 

840 

PRINT #1,NS 


850 

FORNAI! TO 15 


860 

F'RINT#! , A è (N) 


870 

NEXT N ' 


890 

POR D=1 TO NS 


890 

PR I NT# 1 , M7. ( D ) , G7. ( D ) 

, V7. (D) ,T7.(D) , C7. ( D 

9 00 

NEXT D 


9 Ì 0 

CL..05E# .1 


920 

GOTO 280 


930 

CL..S: LOCATE?, 1 ; F'RINT 

"*** INSERIMENTO 


DATI **#" 

940 UY=0 

950 POR N=1 TO 16 STEP 2 

960 LOCATE 1 + ( N >9 ) , N+3 ; F'R I NT N ; " ) " ; A$ <N 

> sLOCATE 19+<N>8), N+3 sPRINT N+ì;") "; A*( 
N+l) 

970 NEXT 

930 LOCATE3,21:PRINT"QUALE SPESA ? (codi 
ce) "5 

990 LINE INPUT SP* 

1000 GOSUB 3350 
1010 SP*=LEFT*(SP*,2) 

1020 LOCATEO,21:PRINT" 

II 

1030 SF‘—VAL ( SP* ) 

1040 IF SP <1 OR SPX1.6 THEN 980 
1050 .IF SP=16 THEN 280 
1060 IF A*(SP)="##*** *% * % %"THEN 980 
1070 C'LS 

1080 LOCATE?, 0 : PR I NT " * * * DAT I : " ; A* ( SP ) ; 

" ***" 

1090 LOCATE 1,3: INPUT"MESE ( i n ci-fre) " ; 

m* 

1100 TI-VAL ( M* ) 

1110 IF M<1 OR M>12 THENLOCATE 2,3:PEINT 
" " : GO 

TO 1090 

1120 GOSUB 3350 

1130 LOCATE 1,5:1NPUT"GIORNO <in cifre) 

" ; G* 

1140 G-VAL(GH) 

1150 IF G<1 OR G>31 THEN LOCATE 2,5:PRIN 
T" " : G 

OTO1130 

1160 GOSUB 3350 
1 170 ’ 

1180 LOCATE 1,7:INPUT"SPESA (in migliaia 
di lire) " ; V’è 
1190 V—VAL < Vii ) 

1200 IF V<1 OR V732766THENL0CATE 2,7sPRI 
NT" " : G 

OTO USO 
1210 GOSUB 3350 
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1 270 ’ 

i 230 locate o, 1 3 s primt" ì« assegno" : tab •: 39 

) ; " 2=C0NTANT I " ; TAB < 38 ) : " 3«CARTA D ì CREO I 
TO";TAB <38 >; "4=ALTR0" 

1240 LOCATE’1,11:INPUT"TIPO DI PAGAMENTO 
" ; Tt 

1250 T «VAL(T*) 

1260 IP" T< 1 OR T > 4 T H E N L. 0 C A T E 2, :!. 1 : FRI NT" 

" : 

GOTO .1.240 
1270 GOSUB 3350 

1230 LOCATE 6,21 :PRINT"VA BENE COSI’ <S/ 

N) ?" 

1290 GOSUB 2950 

1300 IF SS=1THEN GOTO 1320 

1310 LOCATE 0,21 :PRINT" 

": GO TO 1090 

1320 I FCS = 1THENM7. < Q ) =M : G7. ( Q ) =G : TV. < Q ) =T : V 
7. « Q ) =V : Q*NS : CS«0 r, RETURN 

1330 NS=NS+1 : M7. ( NS > =M : G7. < NS ) =G : T7. ( NS ) =T s 
V7. < NS > =V : C7. ( NS ) =SP 

1340 LOCATEO,19:PRINT"VUOI IMMETTERE ALT 
RI DATI RIGUARDANTI 

";A*(SPI5" (S/N) ? 

il 

1350 GOSUB 2950 
1360 

1370 IF SS=1 THEN 1070 ELSE 930 
1330 GOSUB 3230 ; L0CATE7, 2 : PR I NT " * * * MOD¬ 
IFICA DATI ###" 

1390 ’ 

1400 LOCAIE4,5:PRINT"1> DEFINIZIONE SPES 
E 11-15" 

1410 LOCATE4,7:PRINT"2> CORREZIONE DATI 
IN MEMORIA" ’ 

1420 LOCATE4,9:PRINT"3) RITORNO MENU” 
1430 SS*=INKÈY*: IFSS*=""THEN1430 
1440 GOSUB 3350 

1450 SS«VAL< SS*)sIFSS<1ORSS>3THEN1430 
1460 ON SS GOTO 1710,1430 
1470 NS=NY: GOTO 230 

1430 CLS: LOCATE?,1 :PRINT"* * * CORREZIONE 
DATI ***:" 

1490 ’ 

1500 FOR N=1 TO 16 STEP 2 

1510 LOCATE 1+(N >9),N+3:PRINT N; "> "; A*( 

N>: LOCATE 19+(N>3),N+3:PRINT N+1 ;") "; A* 
< N +1 ) 

1520 NE X T 

1530 L0CATE3,21:PRINT"QUALE CAMPO ? (cod 
ice) " ; 

1540 LINE INPUT SP* 

1550 GOSUB 3350 
1560 SP*=LEFT$(SP*,2) 

1570 ’ 

1580 LOCATEO,21:PRINT" 
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1590 SP--VAL. (SP*) 

1600 IF SP <1 OR SP>16 THEN j530 
1610 IF SF‘= 16 THEN 1380 
1620 D--4 

1630 CLS : LOCATELO „ 0 ; PRI NT " * % CORRE 2 I ONE D 
ATI : ";A*<SP>;” * #" 

1640 

1650 LOCATE 0,2:PRINT"MESE GG VALORE T 
1 PO CAUSALE SPESA" 

1660 FORO—' 1 TOME) 

1670 IFC7. ( Q > =SP THEN GOSUB 3010 s GOT01 690 
1680 IFC7. i Q > ~0THENLOCATE0 „ 21 : PR 1 NT " 

SPESE TERMINATE "s FOR H= 

I TO 1000: NE X TEI 
1690 NEXT 0 
1700 GOTO 1380 

1710 CLS: LOCATE2,0:PRINT"*## OFFINIZIONE 
SPESE ***" 

1720 ’ 

1730 LOCATE4,3 s PRI NT " I CODICI ATTUAI.... I SO 
NO : " 

1740 FORNAI ITO15 

1750 LOCATE1,N-5:PRINTN?") "; A*(N):NEXT 

1760 LOCATE1,15:INPUT"QUALE VUOI RIDEFIN 

IRE ( eoe!:i. ce> " : RD 

1770 GOSUB 3350 

1780 IFRDC 1 3 ORRD > 15'THEN 1760 

1790 RD-INT(RD) 

1800 LOCATE1,17:PRINi"NUOVA DEFINIZIONE 
(Mali .1.0 ciar.5 ?" 

1810 •’ 

1820 LOCATE 1,19: LI NE I NP1JTRD* : LOCATE 1 , 19 
SPRINT" 

li 

1830 GOSUB 3350 
1840 IFLEN(RD*)>1OTHEN1820 
1850 A*(RD)=RD*: GOTO1380 
1860 G0SUB3230: LOCATE8,2:PRINT"*** ANALI 
SI DEI DATI ***:" 

1870 ■' 

1880 LOCATE 4,5:PRINT"1) ANALISI PER TIP 
0 DI SPESA" 

1890 LOCATE 4,7 :PRINT"2) ANALISI PER TI 
F'0 DI PAGAMENTO" 

1900 LOCATE 4,9:PRINT"3> ANALISI PER MFS 
I " 

1910 LOCATE 4,11:PRINT"4 > STAMPA ON/OFF" 
1920 LOCATE 4, 13: PRINT"5) RITORNO Al... MEN 
LF " 

1930 LOCATE 4, 17: PRINT "PREMI IL.. TASTO CO 
RRISPONDENTE":L0CATE8,19:PRINT"ALL 7 OP Z10 
NE SCELTA" 

1940 SS*=INKEY*: IF SS*-""THEN 1940 
1950 GOSUB 3350 
1960 L.F-VAL (SS*) 

1970 ON LF GOTO 1990,2280,2560,3170,280 
1980 GOTO 1940 
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1990 CLS: LOCATE?, 1 : F’E I NT " t%% ANAL )' S T DE T 
DATI *#*" 

2000 D=5:TT=0 

2010 FOR N=1 TO 16 STEP 2 

2020 LOCATE 1 + <N>9),N+3:PRINT N;") ";A$ < 

N ) : LOCATE .19+ < N >8 ) , N+3 : PR I NT N+ i ; " ) " • A$ 

■: n+ i ) 

2030 NEXT 

2040 L..0CATE3,21: PR I NT " QUALE SPESA ? (cod 

1 Cf* ) ' 1 " 

2050 LÌNE INPUT SP* 

2060 GOSUEt 3350 
2070 SP*=LEFT*(SP*,2) 

2080 LOCATEO,21:PRINT" 

I» 

2090 SP~VAL ( SP* ) 

2100 IF SF' <1 OR SP>16 THEN 2040 
2110 IF SF'=16 THEN 1860 
2120 IF A*(SP )-"% % % * * % % % % *"THEN 2040 
2130 CLS 

2140 IFGH= 1 THENF'RINT#2, "ANALISI SPESE P 
ER "; A* < SP):PRINT#2,CHR*(10):PRINT#2, " M 
ESE GIORNO SPESA PAGAMENTO": PRIMI 
#2,CHR*(10) 

2150 FOR J = 1TONS 

2160 LOCATE O,0:FRINT"MESE GG VALORE T 
IPO CAUSALE SPESA" 

2170 IFC7.(J)=SP THEN GOSUB 3360 
2180 NEXT J 

2190 LOCATE 0,21 SPRINT" ANALISI TERMI 
NATA PREMI UN TASTO 
2200 SS$=INKEY$:IFSS$=""THEN 2200 
2210 GOSUB 3350 

2220 IF GH--1 THEN PRI NT#2, CHRT ( 1 O > ; PR I NT 
#2,"SPESE TOTALI PER ";A*(SP>;" LIRE ";T 
T*1000 

2230 GOSUB 3230 : LOCATE 4,10: PRINT "SPESF 
T OT AL I PER ";(SP): LOCATE 5,12:PRINT" L 
IRE "sTTUtlOOÒ 

2240 LOCATE 1,19:PRINT" PREMI UN TAS 

TO PER IL MENÙ' 

2250 3S$=INKEY«:IFSS$=""THEN 2250 
2260 GOSUB 3350 
2270 GOTO 280 

2280 CLS:LOCATE?,1:PRINT"#** ANALISI DEI 
DATI * * *" 

2290 D=5:TT=0 

2300 LOCATE 4,3 : FRINT"QUALE TIPO DI PAG 
AMENTO ?" 

2310 LOCATE 4,6 ;PRINT"1> ASSEGNO" 

2320 LOCATE 4,8 :PRINT"2> CONTANTI" 

2330 LOCATE 4,10:PRINT"3> CARTA DI CREDI 
TO" 

2340 LOCATE 4,12:FRINT"4) ALTRO" 

2350 LOCATE 4,14:PRINT"5> RITORNO AL MEN 

2360 SS$=INI<EY$: IF SS$=""THEN 2360 
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2370 GGSIJB 3350 
2380 SP=VAL(SS*) 

2390 IF SP<1 OR SP>5 THEN 2360 
2400 IF SP=5 THEN 1860 
2410 CL.S 

2420 IFGH-1THEN PRINT#2,"ANALISI SPESE I 
N ";K* < SP >: PRI NT#2, CHR* '< 10 ) : PRI NT#2, " ME 
SE ' GIORNO SPESA CAUSALE":PRINT#2, 
OH Ri; < 10) 

2430 POR 3 ~ 1TONS 

2440 LOCATE 0,0 : F'R I NT " MESE GG VALORE T 

1 PO CAUSALE'SPESA" 

2450 IFT7. ( J ) =SF' THENGOSUB 3360 
2460 NE XT J 

2470 LOCATE 0,21 SPRINT" ANALISI TERMI 
NATA PREMI UN'TASTO 
2480 SS*=INKEY*sIFSS*=""THEN 2480 
2490 BOSUB 3350 

2500 1FGH=1 THENPRINT#2,CHR*<1O): PRINT# 
2,"SPESE TOTALI IN ";K*<SP);" LIRE ";TT* 
1000 

2510 GOSUB 3230 sLOCATE 4,10:PRINT"SPESE 
TOTAL I IN " ; K* <SP ) : LOCATE 5,12: PR I NT " L. I 
RE ";TT*1000 

2520'LOCATE 1,Ì9:PRINT" PREMI UN TAS 

TO PER IL MENU’ 

2530 SS*»INKEY*: IFSS*=""THEN 2530 
2540 GOSUB 3350 
2550 GOTO 280 

2560 CL.S: LOCATE 4,5; INPUT "DA QUALE MESE 

" ; m 

2570 M=VAL.. <M*) : IFM< 1 OR MM2 THEN 2560 
2580 LOCATE4,7:INPUT"A DUALE MESE ";M1* 
2590 M1 = VAL. (Mi*) : IF MI< 1 OR M1 <M OR' M1 > 1 

2 THEN 2580 

2600 LOCATE 4,12:PRINT"VA BENE COSI ?" 
2610 GOSUB 2950 
2620 IFSS--OTHEN 2560 
2630 CL..S s D=4 : TT~0 

2640 IF GH=1 THENPRINT#2," MESE GlOR 
NO VALORE TIPO CAUSALE":PRINT#2,CHR 

* < 10 ) 

2650 FOR 3=1 TO NS 

2660 LOCATE O,0:FRINT"MESE GG VALORE T 
IPO CAUSALE'SPESA" 

2670 IFM7. ( J) >=M AND M7. (JX=M1 THEN GOSUB 

3360 

2680 NEXT J 

2690 LOCATE O „ 21 s PR I NT " ALIAI. ISI TERMI 

NATA PREMI UN TASTO 
2700 SS*--1NKEY* : IFSS*=" " THEN 2700 
2710 GOSUB 3350 

2720 GOSUB 3230sLOCATE 4,10sPRINT"SPESE 
TOT ALI DA ":MH*<M): LOCATE 4„12 :PRINT"A " 
l MH*(M1} : LOCATE 3, 14 :PRINT"'LIRE ";TT* 10 
oo 

2730 IF GH=1 THENPRINT#2,CHR* <10)sPRINT# 
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2,"SPESE TOTALI DA ";TH*'<M)s" A "sTH*(Ml 
);" LIRE ";TT % 1OOO 

2740 LOCATE 1, 19: FRI NT" PREMI tJN TAS 

TO PER IL MENÙ’ 

2750 SS*=INKEY*sIFSS*=""THEN 2750 
2760 QOSUB 3350 
2770 GOTO 280 

2780 GOSUB 3230 : LOCATE!'. 5 : PRI NT " SE HA I F 
ATTO MODIFICHE AI DATI ": LOCATE!,7;FRINT 
"RICORDATI DI SALVARLI." 

2790 ’ 

2800 LOCATE 2,1OsPRINT"CONFERMI L»USOITA 
(S/N)" 

2810 GOSUB 2950 

2820 IFSS=1 THEN CLOSEsEND ELSE G0T0280 
2830 DATA AFFITTO,ASSICURAIIONI,TELEFONO 
,ELETTRICITA’,GAS'& ACQUA,ALIMENIARI,VES 
TIAR10,SPESE MEDICHE,AUTOMOBILE,VARIE,* * 
##*##***, #*##***###, *#***##***, % % % % * t * * % 
%,%%%% # * % % % * , MENU r , ASS. , CONI, C AR TAAL..TR 
0,ASSEGNI,CONTAMI I,CARTA DI CREOITO,ALTR 
O,GEN. 

2840 DATAREE.,MAR.,APR.,MAS.,GIU.,LUG.,A 
GU. , SET „ , OTT. , NOV „ ', DIC. 

2850 DAT AGEMINI A IO, FEBBRAIO, MARZO, APRILE, M 

AGGI0,GIUGNO,LUGLI0,AGOSTO,SETTEMBRE,OTT 

OBRE,NOVEMBRE,DICEM&RE 

2860'RESTORE 2830 

2870 POR N=1 TO 16 

2380 READ A$(N) 

2890 NEXT 

2900 FORN=1T04: READP*(N)s MEXTM 
2910 FORM--1T04 ; READI<$ ( N ) : NE XTM 
2920 FORM= 1 TO 12 : READ'TH* <N ) ; MEXTM 
2930 FORM-1TO12:READMH$(N)s NEXTM 
2940 RETURN 
2950 ’ 

2960 SS= INKEYf>s IF SS$=" "THEN 2960 
2970 GOSUB 3350 

2980 IF SS$="S" OR SS*="s"THENSS»1s RETUR 


2990 IF SS':P-"N" OR 83$="n"THEMSS=0: RETUR 
N 

3000 GOTO 2950 

3010 LOCATE 0, D s PR INTTH* ( M7. ( Q > ) ; L0CATE5, 
D : PR I NT US ING " ## " ; G7. ( Q > : LOCATE 17, D s PR INTP 
$ (T'% <Q) ) 

3020 LOCATE 24, D s PR I MI A* < C7. < Q ) ) 

3030 LOCATE 10, D ; PR INTUSI NG " ##### " ? V7. ( Q ) 
3040 D=D+i 

3050 IFD>18 THEN D~4:CLSs LOCATE 0,0:FRI 


NT"MESE GG 


'ALORE TIPO 


CAUSALE SPESA 


3060 LOCATE 0,21sPRINT"A=A1tra spesa - C 
“Correzione - E>E;:it" 

3070 SST'-- INI<EY$ : IFSS*=" "THEN 3070 
3080 PLAY"DORÈ" 
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3090 I FSS*= " A " OR SS*= " a " THENRET I.JRN 

3100 IFSS*="C"OR SS*="c"THENCS=1sGOTO107 

o 

3110 IFSS*= "E "OR SS *--= " e " THENQ-NSs RETLJRN 
3120 GOTO 3070 

3130 CLSsLOCATE 0,lOsPRINT"ATTENZIONE ER 
RORE IN CORSO !!!!!!!!!! 

RICONTROLLARE L 

A PROCEDURA" 

3140 FORT=1T030 
3150 GOSUB 3350 
3160 NEXTTsRÉSUMÉ 280 
3170 GOSUB 3230 

3180 LOCATE 4,10:PRINT"VUOI ANCHE LA STA 
MF'A ? (S/N)" 

3190 GOSUB 2950 

3200 IF SS-1 THEN GH= 1 : OPEN " 0 " , #2, " L.F'RT s 


3210 IF SS=0 THEN GH«0:CL0SE 
3220 GOTO 1860 
3230 CI....S 

3240 F0RX-0T039 STEP 39 

3250 POR Y-0T021 

3260 LOCATE X,Y2 PRINT"#" 

3270 NEXT Y 
3280 NEXT X 

3290 F0RX~0T021 STEP 21 

3300 FOR Y=0T039 

331T) LOCATE Y, X : PR I NT " * " 

3320 NEXT Y 
3330 NEXT X 
3340 RETURN 

3350 FORI=0 TO 5 s BEEPs NEXT:RETURN 

3360 D-D+2:IF D>19 THENJ“3.1: D—5; LOCATE 

7 , 21 s PR I NT " A~A 11re spese E=E>; i t " ; GOT 
0 3440 

3370 LOCATE 0,D 2 PRINTTH*(MX(J) > 3 L0CATE5, 
D : PR INTUSING " ## " ; GX ( J ) : LOCATE 17, D : PRINTP 
'$ i TX ( J ) ) 

3380 IF GH= 1THENPRI NT#2, THt ( M7. < J ) ) ; : FOR 

C= 1 TO ( 11.LEN ( T m ( N% ( J ) ) ) ) 2 PR I NT#2, " " -, ; N 

EX l'C 2 PR I NT#2, USI NG " ## ##### ' " ; G7. ( J 

) , VX ( J ) ;; 

3390 TT=TT+V7. < J) 

3400 LOCATE 10, D 3 PR I NTUS I NG " ##### " VX. ( J ) 
341O LOCATE 24,D:PRINTA*(CX<J)) 

3420 IPOH -1 THENPR I NT#2, Pt- < TX ( J ) ) ; : FORC= 1 
TO < 8 -LEN ( P* ( TX ( J ) ) > ) : PR I NT#2, " " i; : NEXT 2 P 
RINT#2,A$(CX < J) ) 

3430 RETURN 

3440 SS$=INKEY$2IF SS*»""THEN 3440 
3450 GOSUB 3350 

3460 I FSS*= " A " OR SS*- " a " THE MCI. S s RETURN 
3470 IFSS*—"E"OR SS*="e"THENJ-NS: RETURN 
3480 GOTO 3440 


FORO 1 
: NEXT2 P 


121 










AGENDA 

fELEFONICA 


Il sistema piu' pratico per archiviare i numeri telefonici e' sicura¬ 
mente quello di usare una rubrica alfabetica appropriata, cio¬ 
nonostante quando i numeri telefonici sono tanti, cominciano a 
manifestarsi problemi di correzione, di ricerca, ecc. Il pro¬ 
gramma "Agenda" e' la versione computerizzata della vostra 
rubrica telefonica, priva ovviamente di tutti i difetti tipici di que- 
st'ultima, con un'interessante opzione della ricerca per nomi e 
per numeri. Non sara' piu' un problema trovare il numero di te¬ 
lefono di una persona di cui si e' dimenticato il cognome, oppu¬ 
re risalire da un numero all'effettivo possessore. 

Ovviamente, per rendere pratico l'utilizzo, il programma preve¬ 
de la memorizzazione dei dati su nastro e le funzioni di cancel¬ 
lazione e aggiunta dei dati per le normali operazioni di aggior- 
mamento. 
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Commento alle linee del programma 

70 

dimensionamento matrici numeri e nomi 
( 100 ) 

100-110 

inserimento di un dato e controllo spazio dispo¬ 
nibile 
120-150 

inserimento numero e nome 
170 

scrittura nei vettori 

190-240 

conferma e inserimento/uscita 
250-360 

lista dei record 
370-520 

menu principale e selezione 
530 

uscita programma 

540-610 

ricerca del numero 
620-690 

ricerca del nome 
700-930 

cancellazione record 

940-1010 

registrazione su disco dei dati 

1020-1030 

subroutine "premi un tasto" 

1040-1110 
elenco record 

1120-1220 

caricamento dati da cassetta 
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io • ************.**.*******. 

20 •’ $ 

30 : '* AGENDA TELEFONICA * 

40 J * % 

50 ? # # % % % % % * Ifc # !K % 

60 

70 SCREEN 7,1,1: DIN Dii < 100> , NT ( 100) 

80 GOTO 390' 

90 CLEAR 5000:1) IM DT ( 100 > , NT ( 100 ) 

100 D--D+1 

110 IF D >= .100 THEN CLS: FRI NT "NON C’E’ PI 
LJ’ SPA ZIO" : GOSUB 1020 : BT= " FI NE " ; GOTO 130 
120 CLS:PRINT"Inserì sci il nome numero " 
D:PRINT :PRINT"(Batti ’FINE’ p er useire)" 
: PR I NT : BT= " " : INPUT BT : IF BT~ " " THEN 120 
130 IF BT="FINE" THEN CLS:D=D-1 : GOTO 25 
0 

140 CLS:PRINT"nome: "BT 

150 F'RINT: PRINT" Inserì, sci il numero tele 
f ori i co " : PR I NT : CT= " " : INPIJT CT : IF CT= " " T 
HEN 140 
160 CLS 

170 DT(D)=BT: NT(D)=CT 

180 PRINT DT < D > :PRINT:PRINT NT< D):PRINT 
190 PRINT"ENTER per confermare, batti ’C 
ORR’ per correoaere) 

200 ET”"": INPUT"ET:CLS 
210 IF ET="CORR" THEN 120 

220 PRINT"Premi ENTER per inserirne un a 

lt.ro, una 1 ettera+ENTER, per terminare" 

230 INPUT ET:CLS 

240 IF ET»"" THEN 100 

250 PRINT"ELENCO. . . " 

260 B=0:G=D 
270 Z1 
280 B--Z + 1 

290 IF BX3 THEN 340 

300 IF DT(B)>DT(Z) THEN 320 

310 Z=Z + 1: GOTO 280 

320 QT=DT(Z):DT•Z)=DT<B):DT <B > ~QT 
330 QT==NT (Z) : NT ( Z ) »NT (B) : NT ( B ) ==QT : GOTO 3 
10 

340 PRINT;PRINT DT <G) :PRINT NT <G):G=G-1 
350 IF G>0 THEN 270 
360 IF INKEYTO" " THEN 360 
370 GOSUB 1020 
380 ? 

390 CLS:PRINT:ATTRB 1,1:PRINT" 

E L. E F 0 NIC A " : A 'T T R B 0, 0 
400 PRI NT: PRI NT TAft (5) " 1. - per 
agenda" 

410 PRINT :PRINT TAB<5)"2 per 

e nuovi nomi" 

420 PRINT:PRINT TAB(5)"3 - per 
e un nome" 

430 PRI NT: PRI NT TAB<5>"4 -• per 
n nome" 


RUBRICA T 
rifare 1 •’ 
aggi unger 
cancel1ar 
cercare u 
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440 PRINT:PRII\IT TAB (5) "5 - per cercare u 
n numero" 

450 PRINTsPRINT TAB(5)"6 — per elencare 
1"agenda" 

460 PRINTsPRINT TAB(5)"7 - per salvare u 
n file di dati." 

470 PRINTsPRINT TAB <5)"S - per caricare 
un file di dati" 

480 PRINTsPRINT TAB(5)"9 - per fermare i 

I programma" 

490 Qi=INKEYi: IF Di'»-- " " THEN 490 
500 Q-VAL(QÌ) 

510 GN Q GOTO 90,100,700,540,620,1040,94 

0,1120.530 

520 GOTO 490 

530 CLSs LOCATE 18,15:PRINT"CIAO"sPRINTs P 
RI NT: PRINT: PRINT"Se vuoi rilanciare :i.l p 
rogramma non dareRUN ma batti GOTO 80, a 
ltrimenti perdi tu1.1i j. dati " s END 
540 CLSsINPUT "Inserisci il nome " ; Ai 
550 IF Ai--" " THEN 540 s ELSE F=LEN<AÌ) 

560 CLSSPRINT"Sto cercando il numero di 
s "SPRINT A$ 

570 FOR A— .1. TO D 

580 IF LEE Ti<Di(A),F)“Ai THEN CLSs PRINT" 

II numero di :"sPRlNT Di(A)" e 7 "SPRINT 
Ni(A)s GOTO 360 

590 NE X T A 

600 PRIMIs PRIMI"Numero non trovato":PRTN 

I 

610 GOTO 360 

6 2 O CI... S :: P RIN1" 11 £> c: r i v i i 1 n u m e r a ' ' 

630 INPUT WisIF Wi="" THEN 630sCLSsPRIMI 
"Sto cercando il nome" 

640 F=L„EN ( Wi ) 

650 FOR A=1 TO D 

660 IF LEFTi ( Ni < A > , F ) = Wi THEN C!... S s PRINT 11 

II nome a cui corrisponde il numero : 

"Ni •; A) " e 7 " : PRINT Di ( A> s GOTO 360 
670 NEXT A 

680 PRINT:PRINT"Nome non trovato"s PRINT 
690 GOTO 360 

700 CLS:PRINT"Serivi il nome da cancella 
re" SPRINT;: PRINT" (Batti 7 FINE 7 per isrirp 
)"SPRINT 

710 Wi=""s INPUT WisIF WÌ="FINE" TI-iFIM CÌ S 
: GOTO 390 
720 F=LEN(Wi) 

730 FOR A“1 TO D 

740 IF !.. E F T i ( I) i ( A ) , F ) - W i IH E N 7 7 O 
750 NEXT A 

760 CLSs PRINT "Questo nome non esiste" :Rfl 
SUB 1020:GOTO 700 

770 CLS s PR I NT s PR .1 NT s PR I NT Di ( A > :: PR I NT s P 
RINT:PRINT"E 7 questo il nome (s/n) ?" 

780 EÌ=INKEYisIF Ei="" THEN 780 
790 IF Ei< >"S" THFN 700 
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800 CLS: FRINT" **# * *": FRINT"* * * 

#":PRINT"* * ##":PRINT"* * # *":PRI 

NT" *** * *" 

810 D$(A)="";N$(A)= "" 

820 B~0sG=D 
830 2=1 
840 B--Z +1 

850 IF B>G THEN 910 

860 IF D$ (B) >Df> <Z) THEN 880 

870 2=2+1:GOTO 840 

880 Q$=D$ ( 2 ) : D* ( 2 ) =D$ < B ) : D*> ( B ) =0$ 

890 Q*=N$(2 >:N$(Z)=N$(B):N*(B)=Q$ 

900 GOTO 870 

910 PRI NT : PF: I NT : PRI NT D* ( 6 ) : PRI NT N* ( G ) : 
6 ==6—1 : IF G>0 THEN 830 
920 D=D.1 

930 GOSUB 1020:GOTO 380 

940 CLSSPRINT "Inserisci la cassetta e p 
remi un tasto" 

950 IF INKEY$=""THEN 950 

960 CLS: LOCATE 10, 10:PRINT"STO SALVANDO 
I DAT I" 

970 OPEN"0",#1,"CASS: AGENDA" 

980 PRINT#1,D 

990 FOR Z=1'TO D:PRINT#1,D*(2):PRINT#1,N 
% (2):NEXT 2 
1000 CI....OSE 

1010 CLS: LOCATE 13, 10:PRINT"DATI REGISTR 
ATI":FOR Z=0 TO SOÓ:NEXT 2 : GOTO 380 
1020 LOCATE 10,23:PRINT"Premi un tasto" 
1030 IF INKEY$="" THEN 1030 ELSE RETURN 
:i 040 CLS 

1050 PRINT"Premi un tasto per -fermare 1 * 
elenco ed un tasto per farlo proseguire 
. 11 : GOSUB 1020 : CLS : LOCATE 0, 21 
1060 FOR A=D TO .1. STEP -1 ' 

1070 PRINT:PRINT D$ <A}:PRINT N$<A >: 

1080 IF INKEY$=" " THEN 1110 
1090 IF INKEYUK >"" THEN 1090 
1100 IF INKEY$="" THEN 1100 
1110 NEXT A:GOSUB 1020:GOTO 380 
1120 CLSSPRINT"Sei sicuro ?" 

1 130 F*=INKEY*: IF F$= " "THEN 1130 ELSE IF 
F* <>"S" THEN 380 

1140 CLEAR 5000:DIH Dt<100 > , m (100) 

1 15 0 C L. S : P R IN T" Iris e r i s c: i 1 a c: a s s e 1.1 a p o i 
premi spazio" 

1160 IF INKEY$="" THEN 1160 

1170 CLS: LOCATE 12,10 s PRINT"CARILAMENTO 

FILE" 

1180 OPEN"I",#l,"CASS:" 

1190 INPUT#l.D 

.1.200 FOR 2 = 1 TO D: INPUT# 1, D$ < Z >: INPUT #1 
„N+< Z >;NEX7 Z:CLOSE 1 

1210 CLS: LOCATE 10„ 1O:PRINT"CARICAMENTO 
COMPLETATO":FOR 2=0 TO 800:NEXT 2 
1220 GOTO 3SO 
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Piero Todorovich - Pierina Loddo 


Possedere un personal computer e non i programmi, equivale a posse¬ 
dere un’auto senza la benzina. Per poter utilizzare subito il PC128 ecco 
una completa raccolta di programmi finiti e di buon livello qualitativo che, 
grazie alla cassetta allegata, potranno essere immediatamente utilizzati 
così come sono, oppure modificati e adattati a seconda delle esigenze. 
Grazie alle note ed ai commenti che accompagnano i listati, il libro può 
essere considerato una preziosa miniera di esempi per chi si avvicina 
per la prima volta alla programmazione Basic. Le applicazioni trattate 
spaziano nei campi in cui può essere utilizzato il computer: dal calcolo, 
alla gestione dati, ai giochi. 
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